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SECTION  1 . INTRODUCTION 

1.1  Purpose  of  the  Validation  Summary  Report 

The  purpose  of  the  Validation  Summary  Report  (VSR)  is  to  identify  individual 
COBOL  language  elements  whose  implementation  does  not  conform  to  American 
National  Standard  Programming  Language  COBOL,  X3.23-1974,  and  to  Federal  Stan- 
dard COBOL  as  adopted  from  the  American  National  Standard  by  Federal  Information 
Processing  Standard  21-1  (FIPS  PUB  21-1). 

1.2  Preparation  of  the  VSR 

The  Validation  Summary  Report  is  prepared  by  analyzing  the  results  of  running 
the  COBOL  Compiler  Validation  System  (CCVS).  The  COBOL  Compiler  Validation 
System  consists  of  audit  routines  containing  features  of  Federal  Standard  COBOL, 
their  related  data,  and  an  executive  routine  (VP-routine)  which  prepares  the 
audit  routines  for  compilation.  Each  audit  routine  is  a COBOL  program  which 
includes  many  tests  and  supporting  procedures  indicating  the  result  of  the 
tests. 

The  testing  of  a compiler  in  a particular  hardware/operating  system  environment 
is  accomplished  by  compiling  and  executing  each  audit  routine.  The  report  pro- 
duced by  each  routine  tells  whether  the  compiler  passed  or  failed  the  tests  in 
the  routine.  If  the  compiler  rejects  some  language  elements  by  terminating 
compilation,  giving  fatal  diagnostic  messages,  or  terminating  execution  abnor- 
mally, then  the  test  containing  the  code  the  compiler  was  unable  to  process  is 
deleted  and  the  audit  routine  compilation  and  execution  repeated. 

The  compilation  listings  and  the  output  reports  of  the  audit  routines  con- 
stitute the  raw  data  from  which  the  members  of  the  Federal  COBOL  Compiler 
Testing  Service  produce  a Validation  Summary  Report. 

1.3  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  the  contents  of 
which  are  described  below. 

a.  Section  2 summarizes  the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  COBOL  Compiler  Validation  System.  Section  2 
is  subdivided  into  a subsection  representing  each  level  of  each  module  defined 
in  American  National  Standard  Programming  Language  COBOL,  X3. 23-1974.  Each 
subsection  contains  a list  of  all  of  the  language  elements  which  must  be 
implemented  in  order  to  claim  support  of  that  level/module.  The  list  of 
language  elements  will  be  annotated  to  include  a description  of  syntax 
semantic  or  Federal  COBOL  flagging  (1.5.2.c)  errors  detected  during  the 
validation. 
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b.  Section  3 - FIPS  PUB  21-1  defines  four  Federal  levels  of  the  COBOL 
Standard.  Section  3.1  and  3.2  of  the  VSR  lists  the  discrepancies  described  in 
Section  2 by  the  Federal  level  in  which  the  problem  occurs.  Section  3.3  lists 
discrepancies  for  the  Report  Writer  Module,  which  is  not  a part  of  Federal 
Standard  COBOL. 

c.  Section  4 contains  information  which  describes  the  software  environ- 
ment in  which  the  compiler  was  tested.  This  includes  the  name  and  version  of 
the  operating  system;  the  implementor-names  which  were  used  in  the  Environment 
Division  of  the  programs  comprising  the  CCVS;  the  options  used  with  the  com- 
piler; and  if  applicable,  information  regarding  the  use  of  compiler  optimiza- 
tion features. 

d.  Section  5 contains  the  results  of  the  ASCII  validation.  The  purpose 
of  these  tests  is  to  ascertain  whether  magnetic  tapes  written  in  ASCII  code  and 
with  ANSI  standard  labels,  and  card  decks  with  ASCII  code,  can  be  transported 
between  the  system  being  validated  and  a foreign  computer  system. 

e.  Appendix  A is  the  Validation  Summary  Working  Document,  a working 
paper  resulting  from  the  compilation  and  execution  of  the  CCVS,  and  from  which 
the  VSR  is  derived. 

1.4  Abstract  Covering  Compliance  to  ANS  COBOL 

Definition  of  an  Implementation  of  American  National  Standard  Programming 
Language  COBOL  (excerpts  from  X3. 23-1974,  Chapter  1,  Section  1.5). 

An  implementation  is  defined  to  meet  the  requirements  of  the  American 
National  Standard  COBOL  specification  if  that  implementation  includes  a 
fully  implemented  specified  level  of  each  of  the  functional  processing 
modules  and  of  the  Nucleus  as  defined  in  this  Standard.  It  follows  from 
this  that,  in  order  to  meet  the  requirements  of  this  Standard,  an  imple- 
mentation must: 

a.  Not  require  the  inclusion  of  substitute  or  additional  language  ele- 
ments in  the  source  program,  in  order  to  accomplish  any  part  of  the  function 
of  any  of  the  standard  language  elements. 

b.  Accept  all  standard  language  elements  contained  in  a given  level 
of  a module  which  is  specified  as  being  included  in  the  implementation, 
except  as  specifically  exempted  (as  pertaining  to  specific  hardware  components 
for  which  support  is  not  claimed).  See  "Elements  that  Pertain  to  Specific 
Hardware  Components"  below. 

These  points  are  of  particular  pertinence  in  two  areas: 

(1)  There  arc  throughout  the  American  National  Standard  COBOL 
specification  certain  language  elements  whose  syntax,  or  effect,  is  specified 
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to  be,  in  part,  implementor-defined.  While  the  implementor  specifies  the 
constraints  on  that  portion  of  each  element's  syntax  or  rules  that  is  indi- 
cated in  this  Standard  to  be  implementor-defined,  such  constraints  may  not 
include  any  requirement  for  the  Inclusion  in  the  source  program  of  sub- 
stitute or  additional  language  elements. 

(2)  When  a function  is  provided  outside  the  source  program  that 
accomplishes  a function  specified  by  any  particular  standard  COBOL  element, 
then  the  Implementation  must  not  require,  except  for  Environment  Division 
elements,  the  specification  of  thrt  external  function  in  place  of  or  in 
addition  to  that  standard  language  element: 

The  following  qualifications  apply  to  the  American  National  Standard  COBOL 
specification: 

a.  There  are  certain  language  elements  which  pertain  to  specific  types 
of  hardware  components.  In  order  for  an  implementation  to  meet  the  require- 
ments of  this  standard,  the  implementor  must  specify  the  minimum  hardware 
configuration  required  for  that  implementation  and  the  hardware  components 
that  it  supports.  Further,  when  support  is  thus  claimed  for  a specific  hard- 
ware component,  all  standard  language  elements  that  pertain  to  that  component 
must  be  Implemented  if  the  module  in  which  they  appear  is  included  in  the 
implementation.  Language  elements  that  pertain  to  specific  hardware  com- 
ponents for  which  support  is  not  claimed,  need  not  be  implemented.  However, 
the  absence  of  such  elements  from  an  implementation  of  American  National 
Standard  COBOL  must  be  specified. 

b.  An  implementation  of  American  National  Standard  COBOL  may  include 
the  ENTER  statement  or  not,  at  the  option  of  the  implementor. 

c.  An  implementation  that  includes,  in  addition  to  a specified  level  of 
each  of  the  functional  processing  modules  and  of  the  Nucleus,  elements  or 
functions  that  either  are  not  defined  in  the  American  National  Standard  COBOL 
specification  or  are  defined  in  a given  level  of  a standard  module  not  other- 
wise Included  in  the  Implementation,  meets  the  requirements  of  this  Standard. 
This  is  true  even  though  it  may  imply  the  extension  of  the  list  of  reserved 
words  by  the  implementor,  and  prevent  proper  compilation  of  some  programs  that 
meet  the  requirements  of  this  Standard.  The  implementor  must  specify  any 
optional  language  (language  not  defined  in  a specified  level  but  defined  else- 
where in  the  Standard)  or  extensions  (language  elements  or  functions  not 
defined  in  this  Standard)  that  are  included  in  the  implementation. 

d.  In  general,  the  American  National  Standard  COBOL  specification 
specifies  no  upper  limit  on  such  things  as  the  number  of  statements  in  a pro- 
gram, the  number  of  operands  permitted  in  certain  statements,  etc.  It  is 
recognized  that  these  limits  will  vary  from  one  Implementation  of  American 
National  Standard  COBOL  to  another  and  may  prevent  the  proper  compilation  of 
some  programs  that  meet  the  requirements  of  this  standard. 
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IMPLEMENTOR-DEFINED  LANGUAGE  SPECIFICATIONS 

The  language  elements  in  the  following  lists  depend  on  implementor  defini- 
tions to  complete  the  specificaton  of  the  syntax  or  rules  for  the  elements. 

The  elements  whose  syntax  is  partly  implementor-defined  are: 

Element  Implementor-Defined  Aspect 

computer-name 
computer-name 
integer 

implementor-name;  whether  imple- 
mentor-names are  provided. 

implementor-name 

implementor-name 

implementor-name;  whether  implementor- 
names  are  provided. 

implementor-name  and  the  form;  the 
implementor  provides  at  least  one 
of  seven  specified  forms. 

relationship  between  operand  and  the 
referenced  program. 

relationship  between  library-name 
text-name,  and  the  library. 

language-name 

The  location. 

The  number  of  character  positions. 

The  number  of  qualifiers;  at  least 
five  must  be  supported . 
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SOURCE-COMPUTER  paragraph 
OBJECT-COMPUTER  paragraph 
MEMORY  SIZE  clause 
alphabet-name 

SPECIAL-NAMES  paragraph 
ASSIGN  clause 
VALUE  OF  clause 

RERUN  clause 

CALL  and  CANCEL  statements 

COPY  statement 

ENTER  statement 
Margin  R 
Area  B 

Qualification 
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The  elements  whose  effect  is  partly  implementor-defined  are: 


Element 


Implementor-Defined  Aspect 


alphabet-name 


The  correspondence  between  native  and 
foreign  character  sets. 


implementor-name  switches 


USAGE  IS  COMPUTATIONAL 
clause 

USAGE  IS  INDEX  clause 


SYNCHRONIZED  clause 


ACCEPT  statement 


DISPLAY  statement 


Numeric  test 


Comparison  of  nonnumeric  items 


Arithmetic  expressions 


Whether  setting  can  change  during 
execution . 

Representation  and  whether  automatic 
alignment  occurs. 

Representation  and  whether  automatic 
alignment  occurs. 

Whether  implicit  FILLER  positions  are 
generated;  their  effect  on  the  size 
of  group  items  and  redefining  items. 

Maximum  size  of  one  transfer  of  data 
in  Level  1 Nucleus. 

Maximum  size  of  one  transfer  of  data 
in  Level  1 Nucleus. 

Representation  of  valid  sign  in  the 
absence  of  the  SIGN  IS  SEPARATE 
clause. 

Collating  sequence,  where  NATIVE  or 
implementor-name  collating  sequence 
is  implicitly  or  explicitly 
specified . 

Number  of  places  carried  for  inter- 
mediate results. 
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Elements  That  Pertain  to  Specific  Hardvrare  Components: 

The  standard  language  elements  in  the  list  that  follows  pertain  to  specific 
types  of  hardware  components.  These  language  elements  must  be  implemented 
in  an  implementation  of  American  National  Standard  COBOL  when  support  is 
claimed,  by  the  implementor,  for  the  specific  types  of  hardware  components  to 
which  they  pertain,  and  the  module  in  which  they  are  defined  is  included  in 
that  implementation. 


Element 


Hardware  Component 


CODE-SET  clJ  ise 

MULTIPLE  FILE  TAPE  clause 
CLOSE. .. REEL/UNIT  statement 
CLOSE ...  NO  REWIND  statement 
OPEN. . .REVERSED  statement 


OPEN... NO  REWIND  statement 

0PEN...I-0  statement 
(Sequential  I-O  only) 

OPEN  EXTEND  statement 

REWRITE  statement 

(Sequential  I-O  only) 

SEND... BEFORE/ AFTER 
ADVANCING  statement 


Device  capable  of  supporting  the 
specified  code. 

Reel 

Reel  or  mass  storage 

Reel  or  mass  storage 

Reel  with  the  capability  of  making 
records  available  in  the  reversed 
order;  mass-storage  with  the  cap- 
ability of  making  records  avail- 
able in  the  reversed  order. 

Feel  or  mass  storage 

Mass  storage 


Reel  or  mass  storage 
Mass  storage 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  of  action 
based  on  mnemonic-names. 


USE . . . I-O  ( Sequential 
I-O  only) 


Mass  storage 


WRITE. . .BEFORE/ AFTER 
ADVANCING 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  of  action 
based  on  mnemonic-name. 
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1.5  The  Federal  COBOL  Standard 

The  COBOL  compiler  validation  results  enclosed  in  this  document  reflect  the 
degree  to  which  the  subject  COBOL  compiler  implements  the  Federal  COBOL 
Standard,  The  Federal  COBOL  Standard  is  essentially  the  same  as  the 
American  National  Standard  Programming  Language  COBOL,  X?. 2^-197**,  with  two 
exceptions: 

The  Federal  COBOL  Standard  defines  M levels  and  the  ANSI 
Standard  defines  only  the  minimum  COBOL  implementation  and 
the  full  standard.  Low  and  High  levels  of  the  Federal 
COBOL  Standard  (see  1.5.1)  correspond  to  the  above  two  ANSI 
levels  (minus  the  Report  Writer  module).  Two  additional 
levels,  low-intermediate  and  high- intermediate  have  been 
included  in  the  Federal  Standard  between  the  highest  and 
lowest  subsets.  These  additional  levels  accommodate 
hardware  which  cannot  support  the  full  standard,  but  which 
is  capable  of  implementing  more  than  the  minimum  standard. 

The  Federal  COBOL  Standard  states  that  the  Report  Writer  Module 
is  not  mandatory  in  any  Federal  level,  but  that  the  specifica- 
tions contained  in  X3.2?-197^  should  be  used  to  the  extent 
practical,  consistent  with  requirements. 

The  Federal  COBOL  Standard  requires  that  a compiler  contain  as  a minimum  the 
elements  specified  in  at  least  one  of  the  Federal  levels.  No  restrictions  are 
imposed  on  the  inclusion  of  selected  features  from  higher  levels  or  even  unique 
vendor  extensions.  Compatibility  amoung  various  implementations  of  a given 
level  containing  additional  features  must  be  controlled  by  management  imposed 
standards  and  restrictions. 

1.5.1  Federal  Standard  COBOL  Levels 

a.  Federal  Standard  COBOL  specifications  are  the  language  specifications 
contained  in  American  National  Standard  Programming  Language  COBOL,  X3.2’-197*<. 
For  purposes  of  the  Federal  Standard,  the  modules  defined  in  X?.??-197^  are 
combined  into  four  levels.  Not  all  computers  are  large  enough  to  accommodate  a 
COBOL  compiler  containing  the  full  ANSI  Standard.  Therefore,  the  Federal 
Government  requires  that  all  compilers  acquired  by  its  agencies  contain  as  a 
minimum  one  of  the  four  Federal  levels,  depending  on  machine  size,  configuration 
and  user  needs.  The  knowledge  that  all  computers  will  support  at  least  one  of 
these  four  subsets  simplifies  the  task  of  developing  machine-independent  COBOL 
programs. 


b.  The  four  levels  of  Federal  Standard  COBOL  are  identified  as:  Low, 
Low-Intermediate,  High-Intermediate,  and  High.  Each  Federal  Standard  COBOL 
level  is  composed  of  either  the  high  or  low  levels  of  the  nucleus  and  ten  of 
the  eleven  Functional  Processing  Modules  (FPMs)  defined  in  X3.2?-1974. 

The  four  Federal  Standard  COBOL  levels  are  reflected  in  the  following  table. 
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The  numbers  in  the  table  refer  to  the  level  within  the  FPM  or  nucleus  as 
designated  in  X3. 23-1974,  and  a dash  in  the  table  denotes  that  the  corres- 
ponding FPM  is  omitted. 


NUCLEUS 


TABLE  HANDLING 
SEQUENTIAL  I-O 
RELATIVE  I-O 
INDEXED  I-O 
SORT-MERGE 
REPORT  WRITER 
SEGMENTATION 
LIBRARY 
DEBUG 

INTER-PROGRAM 

COMMUNICATION 

COMMUNICATION 


Low 

Level 


Low 

Inter- 

mediate 

Level 


High 

Inter- 

mediate 

Level 


High 

Level 


1.5.2  Conformance  to  Federal  Standard  COBOL 

A compiler  implemented  in  conformance  to  Federal  Standard  COBOL  must  meet  at 
least  the  following  requirements. 

a.  The  implementation  must  include  all  of  the  language  elements  of  at 
least  one  of  the  levels  of  Federal  Standard  COBOL. 


b.  The  implementation  must  meet  all  of  the  requirements  defined  in 
American  National  Standard  COBOL,  X3. 23-1974,  Section  I,  paragraph  1.5,  Defini- 
tion of  An  Implementation  of  American  National  Standard  COBOL  which  is  pro- 
vided in  section  1.4  of  this  VSR. 
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c.  The  implementation  must  provide  a facility  for  the  user  to  optionally 
specify  a level  of  Federal  Standard  COBOL  for  monitoring  his  source  program 
at  compile  time.  The  monitoring  will  be  an  analysis  of  the  syntax  used  in  a 
source  program  against  the  syntax  Included  in  the  specified  level  of  Federal 
Standard  COBOL.  Any  syntax  used  in  the  source  program  that  does  not  conform 
to  that  allowed  by  the  user  selected  level  of  Federal  Standard  COBOL  will  be 
diagnosed.  The  syntax  diagnosed  as  not  conforming  to  the  specified  level  will 
be  identified  to  the  user  through  a diagnostic  message  on  the  source  program 
listing.  The  diagnostic  message  will  contain,  at  least:  (1)  The  identification 
of  the  source  program  line  number  in  which  the  nonconforming  syntax  occurs, 

(2)  the  identification  of  the  level  of  Federal  Standard  COBOL  that  supports 
the  syntax  or  that  the  syntax  is  nonstandard  COBOL. 

1.6.  Use  of  the  VSR 

The  Federal  COBOL  Compiler  Testing  Service  may  make  full  and  free  public 
disclosure  of  the  Validation  Summary  Report  (VSR)  in  accordance  with  the 
"Freedom  of  Information  Act"  (5  U.S.C.  #S52).  The  results  of  the  validation 
are  only  for  the  purpose  of  satisfying  United  States  Government  requirements, 
and  apply  only  to  the  computer  system,  operating  system  release,  and  compiler 
version  identified  in  the  VSR. 

The  COBOL  Compiler  Validation  System  is  used  to  determine,  insofar  as  is 
practical,  the  degree  to  which  the  subject  compiler  conforms  to  the  COBOL 
Standard.  Thus,  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  represent  or  warrant  that  the  statements, 
or  any  one  of  them,  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 
is  not  meant  to  be  used  for  the  purpose  of  publicizing  the  findings  summarized 
therein. 

1.7  Sources  of  Additional  Information 

FIPS  PUB  21-1  defines  the  Federal  COBOL  Language  Standard.  This  publication 
is  available  from  the  Office  of  ADP  Standards  Management,  National  Bureau  of 
Standards,  Washington,  D.  C.,  2027H. 

The  detailed  COBOL  language  specifications  are  given  in  the  publication 
"American  National  Standard  Programming  Language  COBOL,  X?.2?-197M",  available 
from  the  American  National  Standards  Institute,  IH’O  Broadway,  New  York,  New 
York  10018. 

An  explanation  of  the  COBOL  Compiler  Validation  System  is  contained  in  the 
CCVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
system.  The  User's  Guide  and  a magnetic  tape  containing  a copy  of  the  CCVS 
programs  are  available  from  the  National  Technical  Information  Service, 
Springfield,  Virginia,  22151.  (Ordering  information  can  be  obtained  from 
the  Federal  COBOL  Compiler  Testing  Service.) 

1.8.  Requests  for  Interpretation 


CCVS7'«-VSR295 


INTRODUCTION 


Questions  regarding  this  VSR  or  the  CCVS  in  general  should  be  forvrarded  to  the 
FCCTS.  If  any  problem  cannot  be  adequately  resolved  through  the  FCCTS,  the 
request  for  interpretation  will  be  forwarded  to  the  Federal  COBOL  Interpretation 
Committee  for  final  resolution. 

A brochure  describing  the  validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  involving  Interpretation 
of  the  current  Federal  Standard  is  available  from  the  Department  of  the  Navy, 
Federal  COBOL  Compiler  Testing  Service,  Washington,  D.C.  ?0?76. 

1.9  Modules  and  Language  Elements  Excluded  from  Testing 

During  an  official  validation,  certain  CCVS  tests  may  not  be  used,  and  certain 
facilities  provided  by  the  subject  compiler  may  not  be  tested. 

1.9.1  Federal  Standard  COBOL  Approved  Interpretations 

The  National  Bureau  of  Standards  published  in  the  Federal  Register  Vol.  ill 
No.  179,  September  14,  1976,  an  approved  interpretation  of  Federal  Standard 
COBOL  as  pertains  to  the  evaluation  of  arithmetic  expressions  in  the  COMPUTE 
statements.  This  interpretation  states  that  "size  of  the  intermediate  result 
field  is  implementor-defined." 

Since  the  results  of  evaluating  arithmetic  expressions  are  not  predictable,  all 
COMPUTE  statements  and  IF  statements  containing  arithmetic  expressions  have 
been  removed  from  the  COBOL  Compiler  Validation  System. 

1.9.2  Report  Writer  Module 

FIPS  PUB  21-1  excludes  the  Report  Writer  Module  from  the  Federal  COBOL  Standard. 
However,  the  Report  Writer  Module  is  still  tested  during  a validation  if  support 
for  that  module  is  claimed  by  the  compiler  vendor. 

1.9.3  Communication  Module 

Although  it  is  part  of  Federal  Standard  COBOL  as  defined  by  FIPS  PUB  21-1,  the 
Communication  Module  is  not  currently  tested  in  the  course  of  an  official  vali- 
dation for  two  specific  reasons.  First,  a large  volume  of  requests  for  inter- 
pretation on  this  module  have  been  submitted  to  the  cognizant  ANSI  committee 
(X3J4)  for  resolution.  Secondly,  facilities  for  testing  were  insufficient  to 
determine  the  validity  of  the  Communication  Module  test  programs  during  the 
development  of  CCVS74. 

1.9.4  Vendor  Omissions  or  Extensions 

Language  elements  are  not  tested  which  have  been  legitimately  omitted  from  the 
implementation  by  the  implementor  (refer  to  1.4).  Additionally,  no  implementor 
extensions  to  the  standard  COBOL  language  are  tested  in  any  way. 
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1.10  Timeliness  of  the  Validation  Summary  Reports 

The  timeliness  of  the  Validation  Summary  Report  is  important.  Compilers 
and  their  related  operating  system  software  are  modified  several  times  a year. 
The  Compiler  Validation  System  used  to  validate  compilers  is  also  updated 
during  the  life  of  the  system.  Therefore  to  ensure  that  the  latest  version 
of  both  the  vendor's  compiler  and  the  Validation  System  are  the  latest  offici- 
ally released  versions,  check  with  the: 

Director 

Federal  COBOL  Compiler  Testing  Service 
Department  of  the  Navy 
Washington,  D.  C.  20?76 
(202)  697-1247 

Please  use  the  Validation  Summary  Report  number  of  this  report  when 
corresponding  with  the  Testing  Service. 
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SECTION  2.  DETAILED  EVALUATION  OF  ERRORS. 


This  section  summarizes  the  results  of  the  compilation  and  execution  of  the 
programs  comprising  the  COBOL  Compiler  Validation  System  (CCVS).  The  version 
of  the  CCVS  used  during  this  validation  is  shovm  inside  the  front  cover  of  the 
VSR. 

Section  2 is  made  up  of  a variable  number  of  subsections.  The  number  of  sub- 
sections is  dependent  on  the  Level  of  Federal  COBOL  being  validated.  There  will 
be  a subsection  for  each  level  of  each  module  which  is  validated.  If  the  high 
level  of  a module  is  validated  then  there  will  be  two  subsections  for  that 
module;  one  for  the  low  level  and  one  for  the  high  level. 

A validation  of  the  low  level  of  Federal  Standard  COBOL  would  result  in  three 
subsections  being  present.  One  for  Nucleus  level  1,  one  for  Sequential  I-O 
level  1,  and  one  for  Table  Handling  level  1. 

Each  error  or  deviation  noted  in  this  section  makes  reference  to  a program  or 
functional  COBOL  module  contained  in  Appendix  A (Validation  Summary  Working 
Document).  This  reference  provides  the  documented  results  of  an  occurrence 
of  errors/deviataions  detected  during  the  running  of  the  CCVS  using  the  compiler 
within  the  environment  identified  within  this  document.  The  Validation  Summary 
Working  Document  is  presented  in  sequence  by  functional  module,  functional 
module  level  and  program  number  as  defined  below. 

Each  program  In  the  COBOL  Compiler  Validation  System  is  Identified  by  a ‘5- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
processing  module  and  level  of  American  National  Standard  Programming  Language 
COBOL  tested  within  the  program. 

For  the  audit  routines  which  are  not  flagging  routines,  a five  character  name 
is  used  which  has  the  general  format  XXNMM.  The  first  two  characters  are 
alphabetic  and  identify  the  functional  module  tested  by  the  program.  The 
permissable  values  are: 

NC  - Nucleus 
TH  - Table  Handling 
SO  - Sequential  I-O 
RL  - Relative  I-O 
IX  - Indexed  I-O 
ST  - Sort -Merge 
RW  - Report  Writer 
SG  - Segmentation 
LB  - Library 
DB  - Debug 

IC  - Inter-Program  Communication 
- Communication 
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The  third  character  of  the  audit  routine  name  is  either  a 1 or  2,  and  identifies 
the  level  of  the  functional  module  being  tested.  Each  module  and  level 
is  represented  by  several  programs.  The  fourth  and  fifth  characters  of 
the  program  name  are  sequence  numbers  for  programs  vdiich  test  features  in  the 
same  level  of  the  same  functional  processing  module. 

As  an  example,  the  program  name  NC210  is  the  tenth  program  in  the  series  of 
routines  which  test  the  second  level  of  the  Nucleus  module. 

For  the  audit  routines  which  are  used  to  validate  the  flagging  requirement  of 
Federal  Standard  COBOL  (1.5.2.c),  a five  character  program  name  is  used  which 
has  the  format  XXYZN.  The  first  two  characters  XX  identify  the  functional  COBOL 
module  being  tested  by  the  program  and  the  permissible  values  are  the  same  as 
noted  above.  The  third  character  Y is  the  character  4 and  identifies  the 
program  as  one  of  a series  which  is  used  for  testing  compiler  flagging.  The 
fourth  character  Z is  the  character  2,  7 or  4 and  identifies  the  Lowest  Federal 
level  in  which  the  COBOL  language  element  used  in  the  program  are  found.  The 
characters  2,  3 and  4 represent  the  Low-Intermediate,  High-Intermediate  and 
High  Level  respectively  of  Federal  Standard  COBOL.  The  fifth  character  N is  a 
number  1 through  9 which  gives  a unique  name  to  each  program  containing  features 
tested  within  the  same  functional  processing  module  and  Federal  COBOL  level. 

As  an  example,  the  program  name  LB421  is  the  first  program  of  a set  and  the 
COBOL  elements  used  in  the  program  are  available  at  the  Low-Intermediate 
and  higher  levels  of  Federal  Standard  COBOL.  Also,  the  program  is  used  in 
testing  compiler  flagging  for  the  Library  Module. 

Description  of  Section  2. 

Each  error /deviation  is  noted  by  number  in  the  left  hand  margin  opposite 
the  language  element  in  question.  This  number  is  used  in  section  3 to 
categorize  errors  by  Federal  level  (See  1.5.1).  Inserted  directly  below 
the  language  element  is  a brief  description  of  the  error.  To  the  right  of 
the  langauge  element  is  a page  reference  to  X3. 23-1974,  American  National 
Standard  Programming  Language  COBOL.  The  reference  at  the  end  of  the 
description  of  the  error  is  to  Appendix  A which  contains  the  detailed 
information  collected  during  the  validation.  The  reference  is  made  up 
of  the  routine  name  followed  by  an  A or  B (A  for  compile  time  or  syntax 
error  and  B for  execution  time  or  semantic  error)  and  a number  which  makes 
the  error  unique  in  Appendix  A. 


13 


CCVS7't-VSR295 


DETAILED  EVALUATION 


Example: 

2.1  Nucleus  Level  1 


Operational  symbols:  S V P 11-21 

2.1.9  

• The  scaling  character  *P'  is  not  permitted  in  a 

• PICTURE  character-string. 

• (NC101.A.2) 


2.2  Sequential  I-O  Level  1 


2.1.9  represents  the  ninth  error  for  Nucleus  Level  1 

11-21  represents  the  page  in  X3. 23-1974  where  the  language 
element  is  defined 

• Boxes  the  description  of  the  error/deviation 

NC101.A.2  represents: 

Program  name  - NC101 

Syntax  error  - A 
second  error  - 2 
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2.1  NUCLEUS  LEVEL  1 


Language  Concepts  1-75 

Characters  used  for  words 1-76 

Of  If  ...f  9 

A f Bf  . . . f Z 
- (hyphen  or  minus) 

Characters  used  for  punctuation 1-65 


" quotation  mark 
( left  parenthesis 
) right  parenthesis 
. period 
space 

= equal  sign 

Characters  used  in  editing 1-58 

B space 
0 zero 
+ plus 
- minus 
CR  credit 
DB  debit 

Z zero  suppress 
• check  protect 
$ currency  sign 

f CODDIDd 

. period 
/ stroke 


Separators 1-75 

The  separators f semicolon  and  comma f are  not 

allowed II- 1 

Character-strings  1-76 

COBOL  words 1-76 

Not  more  than  30  characters 

User-defined  words 1-76 


data-name 

Must  begin  with  an  alphabetic  character  II-1 

Must  be  unique;  may  not  be  qualified.  . II-1 

level-number 
mnemonic-name 
paragraph-name 
program-name 
routine-name 
section-name 


System-names 1-78 

computer-name 

implementor-name 

language-name 

Reserved  words 1-79 

Key  words 
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Optional  words 

Figurative  constants 1-80 

ZERO 
SPACE 
HIGH-VALUE 
LOW- VALUE 
QUOTE 

Special-character  words  T-80 

Literals 1-80 

Nonnumeric  literals  have  lengths  from  1 
through  120  characters 
Numeric  literals  have  lengths  from  1 through 
18  digits 

PICTURE  character-strings  1-82 

Comment-entries  1-82 

Reference  Format 1-105 

Sequence  number  . I- 105 

Area  A 1-105 

Division  header  1-106 

Section  header 1-106 

Paragraph  header 1-107 

Data  Division  entries  1-107 

Area  B 1-105 

Paragraphs 1-107 

Data  Division  entries  1-107 

Continuation  of  lines  1-106 

Only  nonnumeric  literals  may  be  continued  . . . II- 1 

Comment  lines  1-108 

Asterisk  (•)  comment  lines 
Stroke  (/)  comment  line 

Identification  Division  1-9** 

The  PROGRAM-ID  paragraph II-? 

The  AUTHOR  paragraph TI-2 

The  INSTALLATION  paragraph II-2 

The  DATE-WRITTEN  paragraph IT-2 

The  SECURITY  paragraph II-2 

Environment  Division 1-95 

The  SOURCE-COMPUTER  paragraph  II-5 

computer-name 

The  OBJECT-COMPUTER  paragraph  TI-6 

computer-name 

MEMORY  SIZE  clause 

PROGRAM  COLLATING  SEQUENCE  clause 

The  SPECIAL-NAMES  paragraph  II-8 

implementor-name  IS  mnemonic-name 
implementor-name  IS  mnemonic-name  series 
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ON  STATUS 
OFF  STATUS 
alphabet -name  clause 
CURRENCY  SIGN  clause 
DECIMAL-POINT  clause 


Data  Division 1-97 

Working-Storage  Section  11-11 

The  data  description  entry 11-12 

The  BLANK  WHEN  ZERO  clause 11-14 

The  data-name  or  FILLER  clause 11-15 

The  JUSTIFIED  clause  (may  be  abbreviated  JUST).  II-16 

Level-number 11-17 

01  through  10  (level  numbers  must  be  2 digits)  11-13 

77 11-11 

The  PICTURE  clause  (may  be  abbreviated  PIC)  . . II-18 

Character-string  may  contain  ?0  characters.  . II-18 

Data  characters:  AX9 II-18 

Operational  symbols:  S V P 11-21 

Fixed  insertion  characters 11-21 

0 (may  be  used  only  in  edited  items) 

f 

B (may  be  used  only  in  edited  items) 


$ (currency  sign) 

+ and  - 
D6  and  CR 
/ 

Replacement  or  floating  characters 11-21 

$ (currency  sign) 

+ and  - 
Z 

« 


Currency  sign  substitution 11-21 

Decimal  point  substitution 11-21 

The  REDEFINES  clause  (may  not  be  nested).  . . . 11-27 

The  SIGN  clause 11-31 

The  SYNCHRONIZED  clause  (may  be  abbreviated  SYNC)  11-33 

The  USAGE  clause TI-35 

COMPUTATIONAL  (may  be  abbreviated  COMP) 

DISPLAY 

The  VALUE  clause 11-36 

literal 

Procedure  Division  1-99 

Conditional  expressions  11-41 

Simple  condition IT-41 

Relation  condition 11-41 

Relational  operators 
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2.1.1  - 

* 


[NOT]  GREATER  THAN 
[NOT]  LESS  THAN 
[NOT]  EQUAL  TO 

Comparison  of  numeric  operands 

Comparison  of  nonnumeric  operands  (oper- 
ands must  be  of  equal  size)  

Class  condition  

NOT  option 

Switch-status  condition  

The  arithmetic  statements  

Arithmetic  operands  limited  to  18  digits 

Overlapping  operands 

The  ACCEE*T  statement  (only  one  transfer  of  data) 

The  ADD  statement  

Identifier/literal  series 
TO  identifier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  ALTER  statement  (only  one  procedure-name).  . 
The  DISPLAY  statement  (only  one  transfer  of  data) 

The  DIVIDE  statement  

INTO  identifier 
BY  identifier/literal 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  ENTER  statement  

The  EXIT  statement  

The  GO  TO  statement  (procedure-name  is  required) 
DEPENDING  ON  phrase 

The  IF  statement  (statements  must  be  imperative) 
ELSE  phrase 

The  INSPECT  statement  (only  single  character 

data  item)  

TALLYING  phrase 
ALL 

LEADING 
CHARACTERS 
REPLACING  phrase 
ALL 

LEADING 

FIRST 

CHARACTERS 

TALLYING  and  REPLACING  phrases 

The  MOVE  statement  

TO  identifier 


11-1*2 

II-*»2 

II-»*^ 

II-4** 

11-51 

11-51 

TI-5’ 

11-55 


11-57 

11-59 

II-61 


11-6^ 

11-64 

11-65 


11-66 


11-68 


11-74 


A MOVE  ALL  literal  (figurative  constant)  to  a non- integer 

1 
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nunerlc  field  did  not  give  the  results  expected. 

(NC105  A & B) 


identifier  series 

The  MULTIPLY  statement  11-77 

BY  identifier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  PERFORM  statement 11-78 

procedure-name 
THRU  phrase 
TIMES  phrase 

The  STOP  statement 11-85 

literal 

RUN 

The  SUBTRACT  statement  11-89 


identifier/literal  series 
FROM  identifier 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 


2.2  NUCLEUS  LEVEL  2 


All  elements  of  1 NUC  1,2  are  a part  of  2 NUC  1,2 


Language  Concepts 1-75 

Characters  used  for  punctuation 1-65 

y C0DUD3 

; semicolon 

Characters  used  for  arithmetic  operations 1-52 


+ addition 

subtraction 
• multiplication 

/ division 

••  exponentiation 


Characters  used  in  relations 1-66 

= equal  to 

> greater  than 

< less  than 

Separators 1-75 

The  separators,  semicolon  and  comma,  are  allowed  . . II-1 

Character-strings 1-76 

COBOL  words 1-76 

User-defined  words  1-76 


condition-name 

data-name 

Need  not  begin  with  an  alphabetic  character.  . II-1 
May  be  qualified  if  necessary  for  uniqueness  . II-1 


Reserved  words  1-79 

Figurative  constants  1-80 


ZEROS;  ZEROES 

SPACES 

HIGH-VALUES 

LOW-VALUES 

QUOTES 

ALL  literal 

Connectives 1-79 

Qualifier  connectives:  OF,  IN 
Series  connectives:  , (separator  comma) 
and  ; (separator  semicolon) 

Logical  connectives:  AND,  OR,  AND  NOT,  OR  NOT 


Qualification  I-P7 

Reference  format  1-105 

Continuation  of  lines  (continuation  of  words  and 

numeric  literals  is  allowed)  TT-1 

Identification  Division 1-99 

The  DATE-COMPILED  paragraph II-4 
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Environment  Division 

The  SPECIAL-NAMES  paragraph 
alphabet-name  clause 
literal 


II-8 


r 


2.2.1 

i 


Data  Division T-97 

The  data  description  entry 11-12 

Level-number  11-17 

01  through  49  (level-numbers  may  be  1 or  2 digits)  . 

66 

88 

The  REDEFINES  clause  (may  be  nested) 11-27 

The  RENAMES  clause  (may  be  nested) 11-29 

data-name 

data-name  THRU  data-name 

The  VALUE  clause 11-36 


literal-1,  literal-2 
literal-1  THRU  literal-2 
literal  range  series 


Procedure  Division  I-9Q 

Arithmetic  expressions  11-39 

Conditional  expressions II-41 

Simple  condition  II-41 

Relational  condition  II-41 


Relational  operators 
[NOT]  = 

[NOT]  > 

[NOT]  < 

Comparison  of  nonnumeric  operands  (operands  of 

unequal  size  are  allowed) 11-4? 


COBOL  statements  with  unequal  size  operands  (Nucleus  Level  2) 
were  not  flagged  as  an  extension  to  Low  and  Low-Intermediate 
Levels  of  Federal  Standard  COBOL. 

(NC431 .A. 1) 


Condition-name  condition  11-44 

Sign  condition 11-44 

NOT  option 

Complex  condition 11-45 

Logical  operators  AND,  OR,  and  NOT 

Negated  simple  condition  11-46 

Combined  and  negated  combined  conditions  11-46 

Abbreviated  combined  relation  condition 11-47 

Multiple  results  in  arithmetic  statements 11-51 

The  ACCEPT  statement  (no  restrictions  on  the  number 

of  transfers  of  data) 11-53 

FROM  phrase 
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The  ADD  statement 11-55 

TO  identifier  series 
GIVING  identifier  series 
CORRESPONDING  phrase 

The  ALTER  statement 11-57 

The  series  option  is  allowed 

The  COMPUTE  statement 11-58 

identifier  series 
ROUNDED  phrase 
SIZE  ERROR  phrase 


The  DISPLAY  statement  (no  restrictions  on  the  number 


of  transfers  of  data) II-5P 

UPON  phrase 

The  DIVIDE  statement  IT-61 

INTO  identifier  series 
GIVING  identifier  series 
REMAINDER  phrase 

The  GO  TO  statement  (procedure-name  may  be  omitted).  . 11-65 

The  IF  statement  (nested  statements)  11-66 

The  INSPECT  statement  (multi-character  data  items)  . . 11-68 

series 

2.2.2  — — 


The  INSPECT  statement  (Nucleus  Level  2)  was  not  flagged  as  an 
extension  to  Low  and  Low-Intermediate  Levels  of  Federal  Standard 
COBOL . 

(NCH31 .A.B) 


The  MOVE  statement 11-74 

CORRESPONDING  phrase 

The  MULTIPLY  statement  11-77 

BY  identifier  series 
GIVING  identifier  series 

The  PERFORM  statement 11-78 

UNTIL  phrase 
VARYING  phrase 

The  STRING  statement  11-86 

DELIMITED  series  j 

POINTER  phrase  i 

ON  OVERFLOW  phrase  1 

The  SUBTRACT  statement  11-89  ' 

FROM  identifier  series  j 

GIVING  identifier  series 
CORRESPONDING  phrase 

The  UNSTRING  statement  11-91  . 

DELIMITED  BY  phrase 
POINTER  phrase 
TALLYING  phrase 
ON  OVERFLOW  phrase 
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TABLE  HANDLING  LEVEL  1 

' • 2.?  TABLE  HANDLING  LEVEL  1 

[ Language  Concepts 


[ j User-defined  words 1-76 

t ! index-name 

[ Subscripting  - 3 levels 1-89 

Indexing  - ? levels 1-80 

Data  Division 

The  OCCURS  clause III-2 

integer  TIMES 

INDEXED  BY  index-name  series 

The  USAGE  IS  INDEX  clause III-5 

Procedure  Division 

Relation  conditions  III-6 

Comparisons  involving  index-names  and/or 
index  data  items 

Overlapping  operands III-6 

The  SET  statement III-11 

index-name/identifier  series 
index-name 

UP  BY  identifier/integer 
DOWN  BY  identifier/integer 
1 index-name  series 


I 


2’ 
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TABLE  HANDLING  LEVEL  2 


2.4  TABLE  HANDLING  LEVEL  2 

All  elements  of  1 TBL  1,2  are  a part  of  2 TBL  1,2 
Data  Division 

The  OCCURS  clause III-2 

integer- 1 TO  lnteger-2  DEPENDING  ON  data-name 
ASCENDING/DESCENDING  data-name 
data-name  series 
ASCENDING/DESCENDING  series 


Procedure  Division 

The  SEARCH  statement III-7 

VARYING  phrase 
AT  END  phrase 
WHEN  phrase 

The  SEARCH  ALL  statement III-7 

AT  END  phrase 
WHEN  phrase 


24 


CCVS7'»-VSR295 


SEQUENTIAL  I-O  LEVEL  1 


2.5  SEQUENTIAL  I-O  LEVEL  1 


Language  Concepts 

User-defined  words  1-76 

file-name 

record-name 

I-O  status IV-1 

Environment  Division 

The  FILE-CONTROL  paragraph  IV-M 

The  file  control  entry IV-*I 

SELECT  clause 


ASSIGN  TO  implementor-name  clause 
ORGANIZATION  IS  SEQUENTIAL  clause 
ACCESS  MODE  IS  SEQUENTIAL  clause 
FILE  STATUS  clause 

The  I-O-CONTROL  paragraph IV-6 

RERUN  clause 
SAME  AREA  clause 
SAME  AREA  series 


Data  Division 

File  Section IV-9 

The  file  description  entry IV-10 

The  record  description  entry  IV-9 

The  BLOCK  CONTAINS  clause IV-11 

integer  CHARACTERS 
integer  RECORDS 

The  CODE-SET  clause TV- 12 

The  DATA  RECORDS  clause IV-1? 

data-name 
data-name  series 

The  LABEL  RECORDS  clause  IV- 14 

STANDARD 

OMITTED 

The  RECORD  CONTAINS  clause  IV-18 

integer- 1 TO  lnteger-2  CHARACTERS 

The  VALUE  OF  clause IV- 19 

implementor-name  IS  literal 


implementor-name  IS  literal  series 
Procedure  Division 

The  CLOSE  statement  (only  a single  file-name  may  appear 


in  a CLOSE  statement) IV-20 

REEL 

UNIT 

The  OPEN  statement  (only  a single  file-name  may  appear 

in  an  OPEN  statement) IV-24 

INPUT 


j 

! 
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SEOUEKTIAL  I-O  LEVEL  1 


OUTPUT 

I-O 

The  READ  statement IV-28 

INTO  identifier 
AT  END  phrase 

The  REWRITE  statement IV-81 

FROM  identifier 

The  USE  statement IV-82 


EXCEPTION/ERROR  PROCEDURE 
ON  file-name 
ON  INPUT 
ON  OUTPUT 
ON  I-O 

The  WRITE  statement IV-?4 

FROM  identifier 
BEFORE/AFTER  integer  LINES 
BEFORE/AFTER  PAGE 
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SEQUENTIAL  I-O  LEVEL  2 


2.6  SEQUENTIAL  I-O  LEVEL  2 

All  elements  of  1 SEQ  1,2  are  a part  of  2 SEQ  1,2 


Language  Concepts 

Special  register  1-80 

LINAGE-COUNTER IV-? 

Environment  Division 

The  FILE-CONTROL  paragraph  IV-4 

The  file  control  entry IV-4 

SELECT  clause 

OPTIONAL  phrase 

RESERVE  integer  AREA(S)  clause 

The  T-O-CONTROL  paragraph IV-6 

SAME  RECORD  AREA  clause 
SAME  RECORD  AREA  series 
MULTIPLE  FILE  TAPE  clause 


Data  Division 

The  file  description  entry IV-10 

The  BLOCK  CONTAINS  clause  IV-11 

integer- 1 TO  integer-2  RECORDS 
integer- 1 TO  integer-2  CHARACTERS 

The  LINAGE  clause IV- 1*5 

FOOTING  phrase 
TOP  phrase 
BOTTOM  phrase 

The  VALUE  OF  clause IV- 19 

implementor-name  IS  data-name 
implementor-name  IS  data-name  series 

Procedure  Division 

The  CLOSE  statement IV-20 

NO  REWIND,  REMOVAL,  or  LOCK 
file-name  series 

The  OPEN  statement IV-24 


INPUT 

REVERSED 
NO  REWIND 
OUTPUT 

NO  REWIND 
EXTEND 

file-name  series 

INPUT,  OUTPUT,  I-O,  and  EXTEND  series 


The  USE  statement IV-?2 

EXCEPTION/ERROR  PROCEDURE  ON  file-name  series 
EXCEPTION/ERROR  PROCEDURE  ON  EXTEND 
The  WRITE  statement IV-?4 
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BEFORE/AFTER  identifier  LINES 
BEFORE/AFTER  mnemonic-name 
AT  END-OF-PAGE  imperative-statement 


SEQUENTIAL  I-O  LEVEL  2 
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RELATIVE  I-O  LEVEL  1 


2.7  RELATIVE  I-O  LEVEL  1 


Language  Concepts 

User-defined  words 1-76 

file-name 

record-name 

I-O  status V-2 

Environment  Division 

The  FILE-CONTROL  paragraph V-6 

The  file  control  entry V-S 

SELECT  clause 


ASSIGN  TO  implementor-name  clause 
ORGANIZATION  IS  RELATIVE  clause 
ACCESS  MODE  clause 
SEQUENTIAL 
RANDOM 

FILE  STATUS  clause 

The  T-O-CONTROL  paragraph  V-7 

RERUN  clause 


The  RERUN  clause  was  not  flagged  as  an  extension  to  Low  Level 
of  Federal  Standard  COBOL. 

(RL421 .A. 1) 


SAME  AREA  clause 

2.7.2  

• The  SAME  clause  was  not  flagged  as  an  extension  to  Low  Level 

• of  Federal  Standard  COBOL. 

• (RL421.A.1) 


SAME  AREA  series 


Data  Division 

File  Section V-10 

The  file  description  entry V-11 

2.7.3  


The  FD  entry  was  not  flagged  as  an  extension  to  Low  Level 
of  Federal  Standard  COBOL. 

(RL421.A.1) 


The  record  description  entry V-10 

The  BLOCK  CONTAINS  clause  V-12 

integer  CHARACTERS 
integer  RECORDS 

The  DATA  RECORDS  clause V-n 

data-name 
data-name  series 

The  LABEL  RECORDS  clause V-14 
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RELATIVE  I-O  LEVEL  1 


STANDARD 

OMITTED 

The  RECORD  CONTAINS  clause V-15 

integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause V-l6 

implementor-name  IS  literal 
implementor-name  IS  literal  series 

Procedure  Division 

The  CLOSE  statement V-17 

2.7.^»  


The  CLOSE  statement  was  not  flagged  as  an  extension  to  Low  Level 
of  Federal  Standard  COBOL. 

(RL421 .A. 2) 


WITH  LOCK 

2.7.5  - 

• The  WITH  LOCK  option  of  the  CLOSE  statement  was  flagged  as  an 

• extension  to  Low-Intermediate  level  of  Federal  Standard  COBOL. 

• (RLi*21.A.5) 


file-name  series 

2.7.6  - 

• The  file-name  series  option  of  the  CLOSE  statement  was  flagged 

• as  an  extension  to  Low-Intermediate  Level  of  Federal  Standard 

• COBOL. 

• (RL»»21.A.1«) 


The  DELETE  statement V-19 

INVALID  KEY  phrase 

The  OPEN  statement V-20 

2.7.7  - — 


The  OPEN  statement  was  not  flagged  as  an  extension  to  Low  Level 
of  Federal  Standard  COBOL. 

(RLil21.A,2) 


INPUT 

OUTPUT 

I-O 

file-name  series 


The  file-name  series  of  the  OPEN  statement  was  flagged  as  an 
extension  to  Low-Intermediate  Level  of  Federal  Standard  COBOL. 

(RL1I21.A.7) 


2.7.9 


INPUT,  OUTPUT,  and  I-O  series 
The  READ  statement 


V-2? 


The  READ  statement  was  not  flagged  as  an  extension  to  Low 


I 

i 
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RELATIVE  I-O  LEVEL  1 


• Level  of  Federal  Standard  COBOL. 

• (Rm21.A.2) 

INTO  identifier 
AT  END  phrase 
INVALID  KEY  phrase 

The  REWRITE  statement  V-26 

2.7.10  

• The  REWRITE  statement  was  not  flagged  as  an  extension  to  Low 

• Level  of  Federal  Standard  COBOL. 

• (RL1I21.A.2) 

FROM  identifier 
INVALID  KEY  phrase 

The  USE  statement V-^0 

EXCEPTION/ERROR  PROCEDURE 
ON  file-name 

2.7.11  

• The  file-name  option  of  the  USE  Statement  was  not  flagged  as  an 

• extension  to  Low  Level  of  Federal  Standard  COBOL. 

• (RLH21.A.2) 

ON  INPUT 
ON  OUTPUT 
ON  I-O 

The  WRITE  statement V-’^P 

2.7.12  

• The  WRITE  statement  was  not  flagged  as  an  extension  to  Low 

• Level  of  Federal  Standard  COBOL. 

• (RL1I21.A.2) 

FROM  identifier 
INVALID  KEY  phrase 


( 
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RELATIVE  I-O  LEVEL  2 


2.8  RELATIVE  I-O  LEVEL  2 

All  elements  of  1 REL  0,2  are  a part  of  2 REL  0,2 


Environment  Division 

The  FILE-CONTROL  paragraph V-5 

The  file  control  entry V-5 

SELECT  clause 

RESERVE  integer  AREA(S)  clause 
ACCESS  MODE  IS  DYNAMIC  clause 

The  I-O-CONTROL  paragraph  V-7 

SAME  RECORD  AREA 

SAME  RECORD  AREA  entries 


Data  Division 

The  file  description  entry 

The  BLOCK  CONTAINS  clause  

integer- 1 TO  integer-2  RECORDS 
integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause  

implementor-name  IS  data-name 
implementor-name  IS  data-name  entries 


Procedure  Division 

The  READ  statement V-23 

NEXT  RECORD 

The  START  statement V-28 

2.8.1  


The  START  statement  was  not  flagged  as  an  extension  to  Low- 
Intermediate  Level  of  Federal  Standard  COBOL. 

fRLH’I.A.?) 


KEY  IS  phrase 
INVALID  KEY  phrase 

The  USE  statement V-’O 

EXCEPTION/ERROR  PROCEDURE 
ON  file-name  series 


V-11 

V-12 

V-16 
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INDEXED  I-O  LEVEL  1 


2.9  INDEXED  I-O  LEVEL  1 

1-76 

VI-2 


Environment  Division 

The  FILE-CONTROL  paragraph VI -5 

The  file  control  entry VI-5 

SELECT  clause 


ASSIGN  TO  implementor-name  clause 
ORGANIZATION  IS  INDEXED  clause 
ACCESS  MODE  clause 
SEQUENTIAL 
RANDOM 

RECORD  KEY  clause 
FILE  STATUS  clause 

The  T-O-CONTROL  paragraph  VI-8 

RERUN  clause 


• The  RERUN  clause  was  not  flagged  as  an  extension  to  Low,  Low- 

• Intermediate  and  High-Intermediate  Levels  of  Federal  Standard 

• COBOL. 

• (IXU»H.A.1) 


SAME  AREA  clause 
SAME  AREA  series 


The  SAME  clause  was  not  flagged  as  an  extension  to  Low,  Low- 
Intermediate  and  High-Intermediate  Levels  of  Federal  Standard 
COBOL . 

(IXimi.A.  1) 


Data  Division 

File  Section VI- 11 

The  file  description  entry VI-12 

2.9. - 


• The  FD  entry  was  not  flagged  as  an  extension  to  Low,  Low- 

• Intermediate  and  High-Intermediate  Levels  of  Federal  Standard 

• COBOL. 

• (ixum.A.i) 


The  record  description  entry VI-11 

The  BLOCK  CONTAINS  clause  VI-1’ 

integer  CHARACTERS 
integer  RECORDS 


2.Q.? 

« 


Language  Concepts 
User-defined  words 
file-name 
record-name 
I-O  status.  . . . 
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INDEXED  I-O  LEVEL  1 


The  DATA  RECORDS  clause VI- 1U 

data-name 
data-name  series 

The  LABEL  RECORDS  clause VI- 15 

STANDARD 

OMITTED 

The  RECORD  CONTAINS  clause VI- 1 6 

integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause VI- 17 

implementor-name  IS  literal 
implementor-name  IS  literal  series 

Procedure  Division 

The  CLOSE  statement VI-lP 

2.9.4  - - — - 


The  CLOSE  Statement  vras  not  flagged  as  an  extension  to  Low, 
Low-Intermediate  and  High-Intermediate  Levels  of  Federal 
Standard  COBOL. 

(1X441. A. 2) 


WITH  LOCK 
file-name  series 

The  DELETE  statement VI-20 

2.9.5  - 

• The  DELETE  statement  was  not  flagged  as  an  extension  to  Low- 

• Intermediate  Level  of  Federal  Standard  COBOL. 

• (1X441. A. 4) 


INVALID  KEY  phrase 

The  OPEN  statement VI-21 

2.9.6  - - - 

• The  OPEN  statement  was  not  flagged  as  an  extension  to  Low, 

• Low-Intermediate  and  High-Intermediate  Levels  of  Federal 

• Standard  COBOL. 

• (1X441. A. 2) 


INPUT 

OUTPUT 

I-O 

file-name  series 

INPUT,  OUTPUT,  and  I-O  series 

The  READ  statement VI-24 

2.9.7  - - 

• The  READ  statement  was  not  flagged  as  an  extension  to  Low, 

• Low-Intermediate  and  High-Intermediate  Levels  of  Federal 

• Standard  COBOL. 

• (1X441. A. 2) 


?4 


INTO  identifier 


2.9.9 


» 

ft 

ft 

ft 


2.9.10 


ft 

ft 

ft 

ft 


INVALID  KEY  phrase 

The  USE  statement VI -?2 

EXCEPTION/ERROR  PROCEDURE 
ON  file-name 

The  USE  statement  was  not  flagged  as  extension  to  Low, 
Low-Intermediate  and  High-Intermediate  Levels  of  Federal 
Standard  COBOL. 

(1X441 .A. 2) 

ON  INPUT 
ON  OUTPUT 
ON  I-O 

The  WRITE  statement VI-?^ 

The  WRITE  statement  was  not  flagged  as  an  extension  to  Low, 
Low-Intermediate  and  High-Intermediate  Levels  of  Federal 
Standard  COBOL. 

(1X441 .A. 2) 

FROM  identifier 
INVALID  KEY  phrase 
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INDEXED  I-O  LEVEL  2 


! 

t 

\ 

I 


I 


f 


2.10  INDEXED  I-O  LEVEL  2 

All  elements  of  1 INX  0,2  are  a part  of  2 INX  0,2 


Environment  Division 

The  FILE-CONTROL  paragraph  VI-5 

The  file  control  entry VI-5 

SELECT  clause 


RESERVE  integer  AREA(S)  clause 
ACCESS  MODE  IS  DYNAMIC  clause 

2.10.1  

* The  ACCESS  MODE  IS  DYNAMIC  clause  was  not  flagged  as  an 

• extension  to  High-Intermediate  Level  of  Federal  Standard  COBOL. 

» (IXUU2.A.5) 


ALTERNATE  RECORD  KEY  clause 
WITH  DUPLICATES  phrase 

The  I-O-CONTROL  paragraph VI-8 

SAME  RECORD  clause 
SAME  RECORD  AREA  series 


The  SAME  RECORD  clause  was  not  flagged  as  an  “xtension  to  High- 
Intermediate  Level  of  Federal  Standard  COBOL. 

(IX4U2.A.5) 


Data  Division 

The  file  description  entry VI-12 

The  BLOCK  CONTAINS  clause VI- 1? 

integer- 1 TO  integer-2  RECORDS 
integer- 1 TO  integer-2  CHARACTERS 

The  VALUE  OF  clause VT-17 

implementor-name  IS  data-name 
implementor-name  IS  data-name  series 

Procedure  Division 

The  READ  statement VI-24 

KEY  IS  phrase 
NEXT  RECORD 

The  START  statement VT-’O 

2.10.3  


The  START  statement  was  not  flagged  as  an  extension  to  Low- 
Intermediate  and  High-Intermediate  Levels  of  Federal  Standard 
COBOL. 

(1X442. A. 4) 


KEY  IS  phrase 
INVALID  KEY  phrase 

The  USE  statement VI-32 


^6 
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INDEXED  I-O  LEVEL  2 

EXCEPTION/ERROR  PROCEDURE 
ON  file-name  series 
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SORT-MERGE  LEVEL  1 


i 


2.11  SORT-MERGE  LEVEL  1 


Language  Concepts 

User-defined  words 1-76 

file-name 

Environment  Division 

The  FILE-CONTROL  paragraph VII-2 

The  file  control  entry VTI-2 

SELECT  clause 

ASSIGN  TO  implementor-name  clause 
Data  Division 

File  Section VIT-5 

The  sort-merge  file  description  entry  VIT-F 

The  DATA  RECORDS  clause VII-6 

The  RECORD  CONTAINS  clause VII-7 

Procedure  Division 

The  RELEASE  statement  VII- 12 

FROM  phrase 

The  RETURN  statement VII-17 

INTO  phrase 
AT  END  phrase 


The  SORT  statement  (only  one  SORT  statement,  a STOP 
RUN  statement,  and  any  associated  input-output 
procedures  allowed  in  the  nondeclarative 

portion  of  a program)  VII- lH 

KEY  data-name 

data-name  series 
ASCENDING  series 
DESCENDING  series 
mixed  ASCENDING/DESCENDING 
INPUT  PROCEDURE  phrase 
THRU 

USING  phrase 
OUTPUT  PROCEDURE  phrase 
THRU 

GIVING  phrase 


78 
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SORT-MERGE  LEVEL  2 


2.12  SORT -MERGE  LEVEL  2 

All  elenents  of  1 SRT  0,2  are  a part  of  2 SRT  0,2 


Environment  Division 

The  FILE-CONTROL  paragraph VII-2 

The  file  control  entry VIT-2 

SELECT  clause 

Tne  I-O-CONTROL  paragraph  VII-7 

SAME  RECORD  AREA  clause 


SAME  SORT/SORT-MERGE  AREA  clause 
SAME  series 

Procedure  Division 

The  MERGE  statement VII-8 

KEY  data-name 

data-name  series 
ASCENDING  series 
DESCENDING  series 
mixed  ASCENDING/DESCENDING 
COLLATING  SEQUENCE  phrase 
USING  phrase 
OUTPUT  PROCEDURE  phrase 
THRU 

GIVING  phrase 

The  SORT  statement  (multiple  SORT  statements  are 

permitted) VTI-1i» 

COLLATING  SEQUENCE  phrase 
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REPORT  WRITER  LEVEL  1 


2.13  REPORT  WRITER  LEVEL  1 

2.13.1  

• The  Report  Writer  Module  was  not  run  during  the  validation. 


Language  Concept 

User-defined  words  1-76 

file-name 
report-name 

Special  registers  1-80 

LINE-COUNTER  VIII-I 

PAGE-COUNTER  VIII-I 

Data  Division 

Report  Section  VIII-2 

The  file  description  entry  VITI-3 

The  report  description  entry VIII-J< 

The  report  group  description  entry  VIII-6 

The  BLOCK  CONTAINS  clause  VIII-24 

The  CODE  clause VIII-P*; 

The  CODE-SET  clause  VIII-26 

The  COLUMN  NUMBER  clause  VIII-27 

The  CONTROL  clause  VIII-28 

data-name 
data-name  series 
FINAL 

FINAL  data-name  series 

The  data-name  clause  VIII-30 

The  GROUP  INDICATE  clause  VIII-31 

The  LABEL  RECORDS  clause  VIII-32 

The  LINE  NUMBER  clause  VIII-33 

integer 
NEXT  PAGE 
PLUS  integer 

The  NEXT  GROUP  clause  VIIT-35 

integer 
PLUS  integer 
NEXT  PAGE 

The  PAGE  clause VIII-36 


integer  LINES 
HEADING 
FIRST  DETAIL 
LAST  DETAIL 
FOOTING 


The  PICTURE  clause II-18 

The  RECORD  CONTAINS  clause  VTII-39 
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REPORT  WRITER  LEVEL  1 


The  REPORT  clause VIII-i|0 

report-name  series 

The  SOURCE  clause 

The  SUM  clause VIII-UP 

UPON  data-name  series 
RESET  phrase 

The  TYPE  clause 


REPORT  HEADING  (RH) 
PAGE  HEADING  (PH) 
CONTROL  HEADING  (CH) 
DETAIL  (DE) 

CONTROL  FOOTING  (CF) 


PAGE  FOOTING  (PF) 

REPORT  FOOTING  (RF) 

The  VALUE  IS  clause II-?6 

The  VALUE  OF  clause . VIII-50 

Procedure  Division 

The  GENERATE  statement  VIII-51 

report-name 

data-name  I 

The  INITIATE  statement  VIII-53  ' 

report-name  i 

The  SUPPRESS  statement  VIII-5U  ] 

report-name 

The  TERMINATE  statement VIII-5'; 

report-name  series 

The  USE  statement VIII-'i6 

BEFORE  REPORTING 


I 
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SEGMENTATION  LEVEL  1 

1 • 

2.14  SEGMENTATION  LEVEL  1 

I 

t 

Language  Concepts 

User-defined  words 1-76 

segment-number 

Procedure  Division 

Segment-numbers  IX-4 

Fixed  segment-number  range  0 through  49 
Non-fixed  segment-number  range  50  through  99 
All  sections  with  the  same  segment-number  must 
be  together  in  the  source  program 
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SEGMENTATION  LEVEL  2 


2.15  SEGMENTATION  LEVEL  2 

All  elements  of  1 SEG  0,2  are  a part  of  2 SEG  0,2 

Environment  Division 

The  OBJECT-COMPUTER  paragraph 

SEGMENT-LIMIT IX-5 

Procedure  Division 

Segment-numbers  IX-U 

Sections  with  the  same  segment -number  need  not 
be  physically  contiguous  in  the  source  program 
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LIBRARY  LEVEL  1 


2.16  LIBRARY  LEVEL  1 

Language  Concepts 

User-defined  words  1-76 

text-name 

All  divisions 

The  COPY  statement X-2 
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LIBRARY  LEVEL  2 


2.17  LIBRARY  LEVEL  2 

All  elements  of  1 LIB  0,2  are  a part  of  2 LIB  0,2 


Language  Concepts 

User-defined  words  1-76 

library-name 

All  divisions 

The  COPY  statement X-2 

OF  library-name 


REPLACING  phrase 
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DEBUG  LEVEL  1 


2.18  DEBUG  LEVEL  1 

Language  Concepts 

Special  registers 

DEBUG-ITEM 

Environment  Division 

The  SOURCE-COMPUTER  paragraph 
WITH  DEBUGGING  MODE  clause 

Procedure  Division 

USE  FOR  DEBUGGING  statement, 
procedure-name 
procedure-name  series 
ALL  PROCEDURES 
Debugging  lines 


i 

I 

1 


j 


1-80 

XI-1 

XI -? 

XI-4 

XI-10 
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2.19  DEBUG  LEVEL  2 

All  elements  of  1 DEB  0,2  are  a part  of  2 DEB  0,2 
Procedure  Division 

USE  FOR  DEBUGGING  statement XI-4 

ALL  REFERENCES  OF  identifier  series 
file-name  series 

2.19.1  

• The  file-name  series  of  the  USE  FOR  DEBUGGING  was  not  flagged 

• as  an  extension  to  Low-Intermediate  Level  of  Federal  Standard 

• COBOL. 

(DB4?1.A.2) 


cd-name  series 

2.19.2  

• The  cd-name  series  of  the  USE  FOR  DEBUGGING  statement  was  not 

• flagged  as  an  extension  to  Low-Intermediate  Level  of  Federal 

• Standard  COBOL. 

• (DB431.A.1) 


i 


i 


■ J 
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2.20  INTER-PROGRAM  COMMUNICATIONS  LEVEL  1 


Data  Division 

Linkage  Section XII-2 

Procedure  Division 

Procedure  Division  header XIT-4 

USING  phrase 

The  CALL  statement XII-5 

literal 

USING  data-name  series 

The  EXIT  PROGRAM  statement XII-8 
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2.21  INTER-PROGRAM  COMMUNICATIONS  LEVEL  2 

All  elements  of  1 IPC  0,2  are  a part  of  2 IPC  0,2 


Procedure  Division 

The  CALL  statement XII-5 

identifier 
ON  OVERFLOW  phrase 

The  CANCEL  statement XII-7 
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2.22  COMMUNICATION  LEVEL  1 

2.22.1  

• The  context  of  the  diagnostic  messaj^e  for  flagging  COBOL 

• elements  which  do  not  conform  to  a user  specified  level 

• of  Federal  Standard  COBOL  is  not  as  required  by  FIPS  PUB  21-1. 

• (CM4^1.A.1) 


i 

I 

• The  COMMUNICATION  Module  is  not  currently  evaluated  as 

• part  of  an  official  validation.  See  Section  1.9.S.  ' 


Language  Concepts 

User-defined  words 1-76 

cd-name 

Data  Division 

Communication  Section  XIII-2 

The  communication  description  entry  XIII-3 


FOR  INPUT  clause 
END  KEY 
MESSAGE  COUNT 
MESSAGE  DATE 
MESSAGE  TIME 
SYMBOLIC  QUEUE 
SYMBOLIC  SOURCE 
SYMBOLIC  SUB-OUEUE-n 
STATUS  KEY 
TEXT  LENGTH 
FOR  OUTPUT  clause 
DESTINATION  COUNT 
DESTINATION  TABLE 
INDEXED  BY 
ERROR  KEY 

SYMBOLIC  DESTINATION 
STATUS  KEY 
TEXT  LENGTH 


Procedure  Division 

The  ACCEPT  MESSAGE  COUNT  statement XIII- 12 

The  DISABLE  statement  XIII-1? 

INPUT 

OUTPUT 

KEY  identifier/literal 

The  ENABLE  statement XIII-15 

INPUT 

OUTPUT 
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KEY  identifier/literal 
The  RECEIVE  statement  . . 
MESSAGE 

INTO  identifier 
NO  DATA  phrase 
The  SEND  statement.  . . . 
FROM  identifier- 1 WITH 
WITH  EMI 
WITH  EGI 

BEFORE/AFTER  ADVANCING 
identifier-?  LINES 
integer  LINES 
mnemonic-name 
PAGE 


XIII-17 


XIII-20 


2.23 
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COMMUNICATION  LEVEL  2 


The  COMMUNICATION  Module  is  not  currently  evaluated  as 
part  of  an  official  validation.  See  Section  1.9.3* 


All  elements  of  1 COM  0,2  are  a part  of  2 COM  0,2 
Communication  Section 

The  communication  description  entry XIII-’ 

FOR  INPUT 
INITIAL 


Procedure  Division 

The  DISABLE  statement XIII- H 

INPUT 

TERMINAL 

The  ENABLE  statement  XIII-15 

INPUT 

TERMINAL 

The  RECEIVE  statement XIIT-17 

SEGMENT 

The  SEND  statement  XIII-20 

FROM  identifier-1 
WITH  identlfier-2 
WITH  ESI 
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SECTION  3.  COMPILER  STATUS 

3.1  Federal  Standard  COBOL 

Section  1.5  explains  the  four  levels  of  Federal  Standard  COBOL  and  their 
relation  to  American  National  Standard  COBOL.  This  section  lists  the  dis- 
crepancies described  in  Section  2 by  the  Federal  level  in  which  the  problem 
occurs.  All  errors  listed  for  a lower  level  are  also  errors  in  any  higher 
level,  even  though  they  are  listed  only  in  the  lower  level.  The  paragraph 
number  from  Section  2 is  used  to  reference  the  errors  in  each  Federal  level. 

3.1.1  Low  Level 

2.1.1  MOVE  ALL  literal  (figurative  constant)  gave  incorrect  results. 

3.1.2  Low-Intermediate  Level 
None 

3.1.3  High-Intermediate 
None 

3.1.H  High  Level 
None 


’.2  Federal  Standard  COBOL  Flagging 

A requirement  of  Federal  Standard  COBOL  is  that  the  COBOL  implementation 
include  a facility  for  flagging  COBOL  elements  which  do  not  conform  to  a 
given  level  of  Federal  Standard  COBOL.  This  section  lists  the  flagging 
discrepancies  described  in  Section  2 by  Federal  COBOL  Level. 

3.2.1  Low  Level 

2.2.1  COBOL  statements  with  unequal  size  operands  were  not  flagged. 

2.2.2  INSPECT  statement  of  the  Nucleus  module  was  not  flagged. 

2.7.1  RERUN  clause  of  Relative  I-O  module  was  not  flagged. 

2.7.2  SAME  clause  of  Relative  I-O  module  was  not  flagged. 

2.7.3  FD  entry  of  Relative  I-O  module  was  not  flagged. 

2.7.**  CLOSE  statement  of  Relative  1-0  module  was  not  flagged. 

2.7.7  OPEN  statement  of  Relative  I-O  module  was  not  flagged. 

2.7.9  READ  statement  of  Relative  I-O  module  was  not  flagged. 

2.7.10  REWRITE  statement  of  Relative  I-O  module  was  not  flagged. 

2.7.11  File-name  option  of  USE  statement  of  Relative  I-O  was  not  flagged 

2.7.12  WRITE  statement  of  Relative  I-O  module  was  not  flagged. 

2.9.1  RERUN  clause  of  Indexed  I-O  module  was  not  flagged. 
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2.9.2  SAME  clause  of  Indexed  I-O  module  was  not  flagged. 

2.9.?  FD  entry  of  Indexed  I-O  module  was  not  flagged. 

2.9.4  CLOSE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.6  OPEN  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.7  READ  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.8  REWRITE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.9  USE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.10  WRITE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.22.1  Content  of  diagnostic  message  is  not  in  accordance  with  Federal 
Standard  COBOL. 

3.2.2  Low-Intermediate 

2.2.1  COBOL  statements  with  unequal  size  operands  were  not  flagged. 

2.2.2  INSPECT  statement  of  the  Nucleus  module  was  not  flagged. 

2.7.5  CLOSE  WITH  LOCK  statement  of  Relative  T-0  module  was  flagged. 

2.7.6  CLOSE  file-name  series  of  Relative  I-O  module  was  flagged. 

2.7.8  OPEN  file-name  series  of  Relative  I-O  module  was  flagged. 

2.8.1  START  statement  of  Relative  I-O  module  was  not  flagged. 

2.9.1  RERUN  clause  of  Indexed  I-O  module  was  not  flagged. 

2.9.2  SAME  clause  of  Indexed  I-O  module  was  not  flagged. 

2.9. ?  FD  entry  of  Indexed  I-O  module  was  not  flagged. 

2.9.4  CLOSE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.5  DELETE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.6  OPEN  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.7  READ  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.8  REWRITE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.9  USE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.10  WRITE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.10. ?  START  statement  of  Indexed  I-O  module  was  not  flagged. 

2.19.1  File-name  series  of  USE  FOR  DEBUGGING  was  not  flagged. 

2.19.2  Cd-name  series  of  USE  FOR  DEBUGGING  was  not  flagged. 

?.2.?  High-Intermediate 

2.9.1  RERUN  clause  of  Indexed  T-0  module  was  not  flagged. 

2.9.2  SAME  clause  of  Indexed  I-O  module  was  not  flagged. 

2.9.3  FD  entry  of  Indexed  I-O  module  was  not  flagged. 

2.9.4  CLOSE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.6  OPEN  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.7  READ  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.8  REWRITE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.9.9  USE  statement  of  Indexed  T-0  module  was  not  flagged. 

2.9.10  WRITE  statement  of  Indexed  I-O  module  was  not  flagged. 

2.10.1  ACCESS  MODE  DYNAMIC  clause  of  Indexed  I-O  module  was  not  flagged. 

2.10.2  SAME  RECORD  clause  of  Indexed  I-O  module  was  not  flagged. 

2.10.?  START  statement  of  Indexed  I-O  module  was  not  flagged. 
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3.?  American  National  Standard  COBOL 

Full  American  National  Standard  COBOL  consists  of  the  entire  set  of  language 
elements  defined  in  the  ANSI  COBOL  standard  (refer  to  1.7).  It  is  also  the 
equivalent  of  High  Level  of  Federal  Standard  COBOL  plus  the  Report  Writer 
module.  Therefore,  this  section  lists  only  those  discrepancies  found  while 
validating  the  Report  Writer  Module. 

2.13.1  The  Report  Writer  Module  programs  were  not  run  for  this 
validation. 
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SECTION  4 SOFTWARE  ENVIRONMENT. 

The  compiler  referenced  in  this  document  was  validated  using  the  software 
environment  described  in  this  section.  When  using  a modification  of  the 
described  environment,  the  compiler  may  or  may  not  continue  to  conform  to  the 
Standard.  It  should  be  noted  that  during  the  validation  process,  an  attempt 
is  made  to  validate  as  many  different  options  as  possible. 

The  use  of  compiler  options,  implementor-names  in  the  Environment  Division 
and  any  form  of  optimization  which  is  not  described  in  this  report  could  cause 
the  compiler  to  produce  a program  that  does  not  perform  according  to  the 
specifications  of  Standard  COBOL.  Only  the  environment  described  in  this 
document  has  been  used  with  this  compiler  to  satisfy  the  requirements  of  FIPS 
PUB  21-1  and  FPMR  101-32. 1305.  la.  (Any  deviations  which  must  be  corrected  as 
per  the  referenced  FPMR  are  described  in  Sections  2 and  3 of  this  report.) 

1.  Options  or  parameters  used  on  the  processor  call  statement  for  the  compiler: 
The  following  options/parameters  were  used  during  the  validation. 

Options  specified: 

(a)  With  no  optimization  invoked  the  compiler  call  statement  was 

//COMP  EXEC  PGMrIKFCBL00,REGIONr128K,PARM='ADV,SIZErl60K, 

//  BUF=16K,TRU,LVL=D,AP0,LAG,LIB,DYN,N00PT' 

(b)  With  optimization  invoked  the  compiler  call  statement  was 

//COMP  EXEC  PGM=TKFCBLOO,REGION=128K,PARM='ADV,SIZE=160K, 

//  BUF=16K,TRU,LVL=D,AP0, LAG, LIB, OPTIMIZE, DYN' 

Options  defaulted: 


NOPMAP 

LINECNT=57 

SPACE1 

NOCLIST 

FLAGE 

SEQ 

NOSUPMAP 

SOURCE 

NODMAP 

NOXREF 

NOSXREF 

LOAD 

NODECK 

NOENDJOB 

NOFLOW 

NOTERM 

NONUM 

NOEATCH 

NONAME 

COMPILErOI 

NOSTATE 

RESIDENT 

NODYAM 

NOSYNTAX 

NOSYSMDMP 

NOOPTIMIZE 

NOTEST 

VERB 

ZWB 

SYST 

LVL=D 

NOLIST 

NOFDECK 

NOCDECK 

LC0L2 

L120 

NOCOUNT 

ADV 

NOPRINT 

DUMP 

NOVBSUM 

NOVBREF 

LANGLVL(2) 
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2.  Environment  Division  implementor-names. 

Printer  destined  files 
S-SYSPRINT 

The  associated  DD  statement  is 
//SYSPRINT  DD  SYSOUTrA 

For  programs  using  the  LINAGE  clause,  the  parameter  K=0  was  required 
in  the  JOBPARM  statement  to  prevent  ejection  to  a new  page  when  the  number 
of  lines  exceeded  the  page  limit  established  during  JES2  generation. 

Tape  files 

S-TAPE 1 

An  example  of  an  associated  DD  statement  is 
//TAPE1  DD  UNIT=12U00,DSN=AT1,DCB=DEN=3 

Sequential  Mass-storage  files 

SEQMAS1 

An  example  of  an  associated  DD  statement  is 

//SE0MAS1  DD  UNIT=SYSDA,SPACE=(TRK, (50,20) ) ,DSN=&4S0MAS1 

Relative  I-O  files 

RELMAS1 

An  example  of  an  associated  DD  statement  is 
//RELMAS1  DD  DSNrRELMASI ,DISP=SHR 

Index  I-O  files 

INXMAS1 

An  example  of  an  associated  DD  statement  is 
//INXMAS1  DD  DSNrSHR.AMPsAMORG 

Sort  files  (SD) 

SORT  1 

An  example  of  an  associated  DD  statement  is 

//S0RT1  DD  UNITrSYSDA,SPACE=(TRK,(50,20)) ,DSNr&&S0RT1 
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Switch  names 

UPSI-1 

UPSI-0 

Source  Computer  names 
IBM-370 

Object  Computer  names 
I3M-370 


3.  Optimization.  The  compiler  may  or  may  not  have  optimization  features. 

If  there  was  an  optimization  feature  available,  it  was  used  during  the 
validation  process  (during  a separate  execution  of  the  Compiler  Validation 
System)  to  determine  if  its  use  causes  the  compiler  to  produce  a program  which 
does  not  give  the  expected  results.  If  the  optimization  is  invoked  through 
the  compiler  call  statement  then  it  is  mentioned  in  paragraph  1 above.  If 

it  is  invoked  through  the  introduction  of  syntax  in  other  than  the  Data 
and  Procedure  Divisions  of  the  source  program  it  is  shown  below.  Optimization 
which  would  require  modification  to  the  Data  and  Procedure  Divisions  is  not 
considered  in  this  report  in  that  it  is  beyond  the  scope  of  the  use  of 
standard  COBOL  and  the  validation  process. 

The  optimization  feature  for  this  compiler  is  invoked  through  the  compiler 
call  statement.  See  1.  above.  There  was  no  difference  in  the  execution 
of  the  programs  when  the  optimization  feature  was  invoked. 

4.  Compiler. 

IBM  OS/VS  COBOL  RELEASE  2.1 

5.  Operating  system. 

MVS  3.7  VS2  with  SU8 

6.  Computer  System  Reference  Manuals. 

(a) .  IBM  VS  COBOL  for  OS/VS,  Document  No.  GC  26-3857-0 

(b) .  IBM  OS/VS  COBOL  Compiler  and  Library  Programmers  Guide, 

Document  No.  SC  28-6483-1. 
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SECTION  5.  ASCII  VALIDATION 
5.1  Purpose  of  ASCII  Validation 

The  ASCII  Validation  is  performed  by  running  a sequence  of  three  CCVS7H 
programs  (SOII8,  S0119i  SQ120)  using  special  procedures.  The  purpose  of  this 
special  run  is  to  validate  that  the  compiler /operating  system  being  tested 
is  capable  of  processing  ASCII  code  represented  on  magnetic  tape  and 
punched  cards  that  were  produced  (in  accordance  with  the  appropriate  American 
National  Standard)  by  another  system.  There  is  also  a magnetic  tape  and  a card 
file  created  during  the  validation  which  will  be  taken  to  another  system  for 
further  processing.  The  purpose  is  to  determine  whether  the  compiler/operating 
system  being  tested  can  also  produce  ASCII  representation  on  magnetic  tape  and 
punched  cards  which  can  be  processed  by  a another  computer  system. 


j 

i 


i 


5.2  Applicable  ANSI  Standards 

The  ASCII  Validation  is  based  on  several  American  National  Standards  and 
presumes  their  support  by  the  compiler/operating  system  being  validated. 

These  are: 

1.  American  National  Standard  Programming  Language  COBOL  X3.2?-197^ 

- The  CODE-SET  clause  is  used  to  read  and  write  the  ASCII 
files. 

The  PROGRAM  COLLATING  SEQUENCE  clause  is  used  to  process  the 
data  in  ASCII  mode  as  well  as  native  mode. 

The  SIGN. . .SEPARATE  clause  is  used  for  signed  data  and  all 
data  is  in  the  DISPLAY  (character)  mode. 

2.  American  National  Standard  Code  for  Information  Interchange 
(ASCII)  X?. 4-1968.  (Note  that  this  describes  the  code,  not  the 
labeling  and  tape  recording  formats.) 

3.  American  National  Standard  Hollerith  Punched  Card  Code, 

X3. 26-1970. 

4.  American  National  Standard  Magnetic  Tape  Labels  for  Information 
Interchange,  X3. 27- 1969. 

5.  American  National  Standard  Recorded  Magnetic  Tape  for  Information 
Interchange  (8OO  CPI,  NZRI),  X3. 22- 1967. 

6.  American  National  Standard  Recorded  Magnetic  Tape  for  Information 
Interchange  (I6OO  CPI,  PR),  X3. 39-1973. 
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The  language  of  the  197H  COBOL  Standard  provides  the  capability  to  accept, 
process,  and  produce  ASCII  code.  The  ASCII  Standard  describes  the  code  insofar 
as  the  bit  arrangement  and  configuration,  but  does  not  address  recording  tech- 
niques, record  formats  or  any  labeling  scheme.  The  800  CPI,  NZRI  magnetic  tape 
recording  standard  was  used  to  establish  the  recording  density  and  techniques. 
(1600  CPI,  PE  based  on  X3.?9-197?  "Recorded  Magnetic  Tape  for  Information  Inter- 
change" could  be  used  under  special  arrangements.)  The  tape  labeling  scheme 
used  in  these  tests  is  based  on  X?. 27-1969  but  is  also  compatible  with  the 
revision  to  that  tape  label  standard.  Only  the  V0L1,  HDR1,  and  E0F1  labels  are 
used.  The  records  are  fixed  length  and  unblocked. 


5.3  ASCII  Validation  Process 

During  the  validation,  the  Validation  Manager  for  the  Federal  COBOL  Com- 
piler Testing  Service  uses  the  ASCII-encoded  magnetic  tape  and  card  files 
in  addition  to  the  normal  tape  files  associated  with  a validation.  For  the 
ASCII  portion  of  the  validation  the  following  steps  are  performed: 

1.  The  tape  file  and  card  deck  (produced  on  another  computer  system) 
are  used  as  input  to  several  programs  designed  to  validate  whether 
the  system  being  validated  can  accept  and  process  the  data  as 
defined  by  the  respective  standards.  Any  changes  made  during  this 
validation  to  the  source  programs  reading  the  data  are  noted 
below  in  5.^.1. 

2.  A tape  file  and  card  file  are  produced  during  the  validation  which 
should  prove  to  be  identical  to  the  files  described  in  1 above. 
These  two  files  are  then  processed  on  a different  computer  system 
to  determine  the  degree  to  which  the  system  bei'^g  validated  sup- 
ports the  ASCII  standard.  Any  changes  made  during  this  validation 
to  the  source  program  producing  the  data  are  noted  below  in  5. *1.2. 


5.*1  Results  for  This  Validation 

1 . The  system  did  not  have  a card  punch  or  card  reader  for  pro- 
cessing the  ASCII-encoded  punched  cards  and  therefore,  ASCII 
code  represented  on  punched  cards  could  not  be  validated.  For 
this  validaton  the  data  intended  for  these  devices  had  to  be 
placed  on  magnetic  tape  in  order  to  execute  Audit  Routines  SO1 18, 
SO1 19  and  S0120. 

2.  Audit  routines  SO1 18,  SO1 19  and  S0120  were  run  twice  for 

this  validation.  The  three  audit  routines  were  run  once  using 
the  ASCII-encoded  magnetic  tapes  with  ANSI  tape  labels  and 
they  were  run  a second  time  without  tape  labels.  The  recording 
format  of  the  magnetic  tape  produced  during  the  test  was  that 
corresponding  to  American  National  Standard  Recorded  Magnetic 
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Tape  for  Information  Interohange  (800  CPI,  NRZI)  X?. 22-1967. 

The  two  ASCII-encodec  legnetJo  tapes  produced  were  read  by  the 
foreign  computer  system  and  proved  to  be  correct  in  both  content 
and  format. 
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APPENDIX  A 

VALIDATION  SUMMARY  WORKING  DOCUMENT 


A-1  This  appendix  is  a working  paper  produced  during  the  validation 
and  documents  the  results  of  the  compilation  and  execution  of  each  of  the 
programs  comprising  the  CCVS.  The  results  contained  herein  are  based  on 
the  use  of  the  compiler  within  the  Validation  Environment  identified  in 
this  appendix.  This  appendix  (Validation  Summary  Working  Document)  is  not 
part  of  the  official  Validation  Summary  Report  (VSR)  and  is  not  intended 
to  reflect  in  any  way  the  compiler's  usefulness  or  degree  of  conformance 
to  the  language  specifications. 

The  reader  of  this  appendix  should  keep  in  mind  that  the  same  pro- 
blem area  may  appear  in  more  than  one  program,  but  is  considered  only  as  one 
single  discrepancy  and  as  such  is  reflected  only  once  in  the  body  of  the 
VSR.  (The  VSR  will  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 

This  appendix  is  divided  into  two  parts.  The  first  part  describes 
the  Validation  Environment.  The  second  part  of  the  document  is  divided  into 
categories  of  information:  compilation  and  execution  results. 

The  reference  document  for  COBOL  is  FIPS  PUB  21-1  (X^.2?-197il) . 
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COMPILER  IDENTIFICATION: 
COMPUTER  SYSTEM: 
OPERATING  SYSTEM: 


VALIDATION  ENVIRONMENT 
IBM  OS/VS  COBOL  Release 
IBM  ?70/168 
MVS  3.7  VS2  with  SU8 


2.1 


CCVS74-VSR295 


APPENDIX  A 


COMMUNICATION  MODULE  LEVEL  1 and  LEVEL  2 

No  communication  programs  were  run.  See  Section  1.9.’. 


COMMUNICATION  MODULE  FLAGGING 
CM4?1 

A.  Compilation  _ _ 

1.  The  context  of  diagnostic  messages  produced  by  the  compiler 
relative  to  COBOL  syntax  which  does  not  conform  to  a user 
specified  level  of  Federal  Standard  COBOL  is  of  the  form 

SEND  STATEMENT  IS  AN  EXTENSION  TO  LEVEL  A 

or 

SEND  STATEMENT  IS  AN  EXTENSION  TO  LEVEL  B AND  BELOW. 

The  words  "LEVEL  A"  and  "LEVEL  B"  of  the  message  refer  to  Low 
and  Low-Intermediate  level  of  Federal  Standard  COBOL  respectively, 
and  the  letters  correspond  to  an  option  setting  of  the  compiler's 
LVL  parameter.  The  allowable  LVL  options  are; 

LVLsA  for  flagging  COBOL  syntax  above  low  level 

LVL=B  for  flagging  COBOL  syntax  above  low-intermediate 

level 

LVL=C  for  flagging  COBOL  syntax  above  High-Intermediate 
level 

LVLsD  for  flagging  COBOL  syntax  above  High  level 

FIPS  PUB  21-1  COBOL  states  "The  diagnostic  message  will  contain  at 
least  (1)  the  identification  of  the  source  line  number  in  which 
the  non-conforming  syntax  occurs  and  (2)  the  identification  of  the 
level  of  Federal  Standard  COBOL  that  supports  the  syntax  or  that 
the  syntax  is  non-standard."  For  this  compiler,  the  message 
produced  Indicates  the  level  setting  of  the  LVL  parameter 
regardless  of  whether  the  COBOL  syntax  in  question  would  also  be 
non- con forming  at  a higher  level  of  Federal  Standard  COBOL. 

The  format  of  flagging  messages  produced  for  other  COBOL  modules 
was  the  same,  but  will  be  mentioned  only  in  this  paragraph. 

B.  Execution 


No  errors 
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DEBUG  MODULE  LEVEL  1 

DB101  through  DB105 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

DEBUG  MODULE  LEVEL  2 

DB201  through  DB204 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

DEBUG  MODULE  FLAGGING 
DB421  and  DB422 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

DB4?1 

A.  Compilation 

1.  The  CD-Name  option  of  the  USE  FOR  DEBUGGING  statement  was  not 
flagged  as  being  an  extension  to  Low-Intermediate  Level  of  Federal 
Standard  COBOL. 

2.  The  file-name  series  option  of  the  USE  FOR  DEBUGGING  statement  was 
not  flagged  as  being  an  extension  to  Low-Intermediate  Level  of 
Federal  Standard  COBOL. 
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B.  Execution 
No  errors. 


INDEXED  I- 
1X101 

A. 

B. 

INDEXED  I- 
1X201 

A. 

B, 

INDEXED  1- 
IXU41 
A. 
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0 MODULE  LEVEL  1 
through  1X107 
Compilation 
No  errors. 
Execution 
No  errors. 

0 MODULE  LEVEL  2 
through  TX211 
Compilation 
No  errors. 
Execution 
No  errors. 

0 MODULE  FLAGGING 


Compilation 

1 . The  following  COBOL  entries  for  Indexed  I-O  were  not  flagged  as 
being  an  extension  to  the  Low  Level  of  Federal  Standard  COBOL. 

(The  name  in  parentheses  following  the  COBOL  entry  is  the  corres- 
ponding paragraph  name  listed  in  the  routine's  execution  report.) 

RERUN  ON  CKPTFILE  EVERY  10  RECORDS  OF  RR-FS1  (RERN-FLAG-01 ) 
SAME  AREA  FOR  IX-FS1  RR-FS1  (SAME-FLAG-01) 

FD  IX-FS1  ...  (FD-FLAG-01 .01) 

FD  IX-FR1  ...  (FD-FLAG-01 -02) 

2.  The  following  COBOL  statements  for  Indexed  I-O  were  not  flagged  as 
being  an  extension  to  the  Low  level  of  Federal  Standard  COBOL. 

(The  name  in  parentheses  following  the  COBOL  statement  is  the 
corresponding  paragraph  name  listed  in  the  routine's  execution 
report . ) 

USE  AFTER  STANDARD  EXCEPTION  PROCEDURE  ON  IX-FS1.  (DECL- 
FLAG-01 .01) 
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OPEN  OUTPUT  IX-FS1.  (OPEN-FLAG-01 .0 1 ) 

WRITE  IX-FS1R1-F-G-240.  (WRT-FLAG-01 .01) 

WRITE  IX-FS1R1-F-G-2U0  FROM  ...  (WRT-FLAG-01 .0?) 

CLOSE  IX-FS1.  (CLOS-FLAG-OI .01) 

WRITE  IX-FR1R1-F-G-2H0  INVALID  KEY  ( WRT-FLAG-OI .0’) 

CLOSE  IX-FR1.  (CLOS-FLAG-01 .02) 

READ  IX-FS1  RECORD.  (READ-FLAG-01.01) 

READ  IX-FS1  INTO  (READ-FLAG-01.02) 

READ  IX-FS1  AT  END  (READ-FLAG-01.0?) 

OPEN  INPUT  IX-FR2.  (OPEN-FLAG-01 .07) 

OPEN  I-O  IX-FS1.  (OPEN-FLAG-OI.OH) 

READ  IX-FS1.  (READ-FLAG-01.05) 

REWRITE  IX-FS1R1-F-G-120.  (REWR-FLAG-01 .01 ) 

READ  IX-FS1.  (READ-FLAG-01.06) 

REWRITE  TX-FS1R1-F-G-120  FROM  ( REWR-FLAG-0 1 . 02) 

READ  IX-FS1  AT  END  (READ-FLAG-01.07) 

OPEN  I-O  IX-FR2.  (OPEN-FLAG-01 .05) 


3.  The  following  COBOL  entries  for  Indexed  I-O  were  not  flagged  as 
being  an  extension  to  Low-Intermediate  Level  of  Federal  Standard 
COBOL . 


RERUN  ON  CKPTFILE  EVERY  10  RECORDS  OF  RR-FS1.  (RERN-FLAG-01 ) 

SAME  AREA  FOR  IX-FS1  RR-FS1.  (SAME-FLA.G-01 ) 

FD  IX  FS1  ...  (FD-FLAG-01 .01) 

FD  IX-FR1  ...  (FD-FLAG-01.01) 

M.  The  COBOL  statements  for  Indexed  T-O  that  were  not  flagged  as 
being  an  extension  to  the  Low-Intermediate  level  of  Federal 
Standard  COBOL  are  the  same  as  in  TX4m.A.2  above  plus  the 
following : 

READ  IX-FR2  INVALID  KEY  (READ-FLAG-01.04) 

DELETE  IX-FS1  RECORD.  (DELT-FLAG-01 .01 ) 

DELETE  IX-FR2  INVALID  KEY  (DELT-FLAG-01 .02) 

REWRITE  IX-FR2R1-F-G-240  INVALID  KEY  (REWR-FLAG-01 ,07) 

I 


5.  The  COBOL  entries  for  Indexed  I-O  that  were  not  flagged  as  being 
an  extension  to  High-Intermediate  Level  of  Federal  Standard  COBOL 
are  the  same  as  in  1X441. A. 7. 


6.  The  COBOL  statements  for  Indexed  I-O  that  were  not  flagged  as 
being  an  extension  to  High-Intermediate  Level  of  Federal  Standard 
COBOL  are  the  same  as  in  1X441. A. 2 above  plus  the  following 

READ  IX-FR2  INVALID  KEY  (READ-FLAG-01 .0?) 

CLOSE  IX-FS 1 . ( CLOS-FLAG-0 1.02) 

OPEN  INPUT  IX-FS1  OUTPUT  IX-FR2.  (OPEN-FLAG-0 1 . 0:^ ) 

DELETE  IX-FS1  RECORD.  (DELT-FLAG-01 .01 ) 
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DELETE  IX-FR2  INVALID  KEY  (DELT-FLAG-01 ,02) 

CLOSE  IX-FS1  WITH  LOCK.  ( CLOS-FLAG-0 1 . Oil ) 

REWRITE  IX-FR2R1-F-G-2ilO  INVALID  KEY  (REWR-FLAG-01 .0’) 

CLOSE  IX-FR2  LOCK.  (CLOS-FLAG-01 .05) 

B.  Execution 
No  errors. 

IX4il2 

A.  Compilation 

1.  The  COBOL  FD  entries  of  Indexed  I-O  were  not  flagged  as  being  an 
extension  to  Low  Level  of  Federal  Standard  COBOL. 

2.  The  following  procedure  division  statements  were  not  flagged  as 
being  an  extension  to  Low  Level  of  Federal  Standard  COBOL. 

OPEN  OUTPUT  IX-FD1,  (OPEN-FLAG-01 .01 ) 

WRITE  IX-FD1R1-F-G-240  INVALID  KEY  — (WRT-FLAG-01 .01 ) 

CLOSE  IX-FD1.  (CLOS-FLAG-01 .01) 

OPEN  INPUT  IX-FD1.  (OPEN-FLAG-01 .02) 

3.  The  COBOL  FD  entries  of  Indexed  I-O  were  not  flagged  as  being  an  “ 

extension  to  Low-Intermediate  Level  of  Federal  Standard  COBOL. 

4.  The  Procedure  Division  statements  that  were  not  flagged  as  being 
an  extension  to  Low-Intermediate  Level  of  Federal  Standard  COBOL 
are  the  same  as  1X442. A. 2 plus  the  following  statement: 

START  IX-FD1  KEY  IS  EQUAL  TO  IX-FD1-KEY  INVALID  KEY... 

(STRT-FLAG-01 .01) 

5.  The  following  COBOL  entries  of  Indexed  I-O  were  not  flagged  as 
being  an  extension  to  High-Intermediate  Level  of  Federal  Standard 
COBOL. 

ACCESS  MODE  IS  DYNAMIC.  ( DYNM-FLAG-0 1 ) 

SAME  RECORD  AREA  FOR  IX-FD1  IX-FS2.  (SAME-FLAG-01) 

6.  The  Procedure  Division  statements  that  were  not  flagged  as  being 
an  extension  to  High-Intermediate  Level  of  Federal  Standard  COBOL 
are  the  same  as  1X442. A. 4 plus  the  following  statements: 

USE  AFTER  STANDARD  EXCEPTION  PROCEDURE  ON  IX-FD1  IX-FS2. 

(DECL-FLAG-01) 

READ  IX-FD1  NEXT  RECORD  AT  END  (READ-FLAG-01.01) 
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INTER-PROGRAM  COMMUNICATION  MODULE  LEVEL  1 
IC101  through  IC12^ 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

IC151  through  IC152 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

INTER-PROGRAM  COMMUNICATION  MODULE  LEVEL  2 
IC201  through  IC208 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

INTER-PROGRAM  COMMUNICATION  MODULE  FLAGGING 
IC«21,  IC1I22,  IC1<?1  and  IC»I?2 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

I 
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LIBRARY  MODULE  LEVEL  1 
LB101  through  LB107 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

LIBRARY  MODULE  LEVEL  2 
LB201  through  LB207 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

LIBRARY  MODULE  FLAGGING 
LBi(21  and  LBUKl 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 
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NUCLEUS  MODULE  LEVEL  1 
NC101  through  NC104 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

NC105 

A.  Compilation 

The  compiler  message 

IKF4044I-C  »»(AN)  SHOULD  NOT  BE  MOVED  TO  NUMBER  FIELD. 
SUBSTITUTING  ZERO. 

was  Issued  on  the  COBOL  statements 

MOVE  ALL  'ABC  123'  TO  M0VE5  (MOVE-TEST- 177) 

and 

MOVE  ALL  '2A'  TO  M0VE7-  ( MOVE-TEST- 1 78 ) 

B.  Execution 

1.  In  MOVE-TEST-177  the  COBOL  Statement 

MOVE  ALL  'ABC  123'  to  MOVE5 

where  M0VE5  is  described  as  99V999i  did  not  produce  the  results 
expected. 

Computed  result:  00.000 

Expected  result:  23.000 

2.  In  MOVE-TEST- 178  the  COBOL  Statement 

MOVE  ALL  '2A'  to  M0VE7 

where  MOVE7  is  described  as  0V99i  did  not  produce  the  results 
expected . 

Computed  result:  0.00 
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Expected  result:  2.00 

NC106  through  NC108 

A,  Compilation 
No  errors. 

B.  Execution 
No  errors. 

NC109 

A.  Compilation 

The  compiler  message 

IKF8002I-W  FLOATING  POINT  IS  AN  EXTENSION  TO  ALL  LEVELS 

was  issued  on  the  COBOL  statement 

DISPLAY  'QUOTE  ' QUOTE  ' ASTERISK  ' 'NUMERIC  LITERALS  ' 
21  SPACE  ?5  I-DATA  PIECE-A  (1)  PIECE-A  (2)  PIECE-A 
(?)  PIECE-A  (H)  PIECE-A  (5)  A1  A2. 

B.  Execution 
No  errors. 

NC1 10  through  NC120 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

NC151  through  NC165 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 
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NC201  through  NC219 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

NUCLEUS  MODULE  FLAGGING 
NC1»?1 


A.  Compilation 

1.  The  use  of  unequal  size  operands  in  an  IF  Statement  was  not  flagged 
as  being  an  extension  to  Low  Level  of  Federal  Standard  COBOL.  (See 
paragraph  name  NUC-FLAG-42) 

2.  The  use  of  unequal  size  operands  in  an  IF  Statement  was  not  flaeged 
as  being  an  extension  to  Low-Intermediate  Level  of  Federal  Standard 
COBOL.  (See  paragraph  name  NUC-FLAG-il2) 

3.  The  INSPECT  Statement  was  not  flagged  as  being  an  extension  to  Low 
Level  of  Federal  Standard  COBOL.  (See  paragraph  name  NUC-FLAG-59) . 

M.  The  INSPECT  Statement  was  not  flagged  as  being  an  extension  to  Low- 
Intermediate  Level  of  Federal  Standard  COBOL.  (See  paragraph  name 
NUC-FLAG-59). 

B.  Execution 


No  errors. 
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RELATIVE  I-O  MODULE  LEVEL  1 
RL101  through  RL109 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

RELATIVE  I-O  MODULE  LEVEL  2 
RL201  through  RL20fi 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

RELATIVE  I-O  MODULE  FLAGGING 
RL421 

A.  Compilation 

1 . The  following  Environment  Division  and  Data  Division  entries  of 
Relative  I-O  were  not  flagged  as  being  an  extension  to  Low  Level 
of  Federal  Standard  COBOL.  (The  name  in  parentheses  following 
each  COBOL  entry  refers  to  the  corresponding  COBOL  paragraph  name 
listed  in  the  routine’s  execution  report.) 

RERUN  ON  CKPTFILE  EVERY  10  RECORDS  OF  RR-FS1.  (RERN-FLAG-01 ) 
SAME  AREA  FOR  RL-FS1  RR-FSl.  (SAME-FLAG-01) 

FD  RL-FS1  (FD-FLAG-01.01) 

FD  RL-FR2  (FD-FLAG-01 .02) 

FD  RR-FSl  (FD-FLAG-01 .0?) 

2.  The  following  Procedure  Division  entries  of  Relative  I-O  were  not 
flagged  as  being  an  extension  to  Low  Level  of  Federal  Standard 
COBOL.  (The  name  in  parentheses  following  the  COBOL  statement 
refers  to  the  corresponding  COBOL  paragraph-name  listed  in  the 
routine's  execution  report) 

USE  ...  ON  RL-FS1.  (DECL-FLAG-01 .01 ) 
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OPEN  OUTPUT  RL-FS1.  (OPEN-FLAG-01 .01 ) 

WRITE  RL-FS1R1-F-G-120.  (WRT-FLAG-01 .01 ) 

WRITE  RL-FS1R1-F-G-120  FROM  (WRT-FLAG-01 .02) 

CLOSE  RL-FS1.  (CLOS-FLAG-01 .01 ) 

WRITE  RL-FR2R1-F-G-120  INVALID  KEY  (WRT-FLAG-01 .0?) 

CLOSE  RL-FR2.  (CLOS-FLAG-01 .02) 

READ  RL-FS1  RECORD.  (READ-FLAG-01.01) 

READ  RL-FS1  INTO  (READ-FLAG-01.02) 

READ  RL-FS1  AT  END  (READ-FLAG-01 .0^) 

OPEN  INPUT  RL-FR2.  (OPEN-FLAG-01 .0?) 

OPEN  I-O  RL-FS1.  (OPEN-FLAG-01 .04) 

READ  RL-FS1.  (READ-FLAG-01.05) 

REWRITE  RL-FS1R1-F-G-120.  (REWR-FLAG-01 .01 ) 

READ  RL-FS1.  (READ-FLAG-01.06) 

REWRITE  RL-FS1R1-F-G-120  FROM  (REWR-FLAG-01 .02) 

READ  RL-FS1  AT  END  (READ-FLAG-01.07) 

OPEN  I-O  RL-FR2.  (OPEN-FLAG-01 .05) 

3.  The  use  of  multiple  file-names  in  an  OPEN  Statement  for  Relative 
I-O  caused  the  compiler  message 

IKF8003I-W  MULTIPLE  FILE-NAMES  IN  OPEN  STATEMENT  IS  AN  EXTENSION 
TO  LEVEL  B AND  BELOW 

to  be  generated  when  the  compiler  was  set  to  flag  COBOL  features 
above  the  Low-Intermediate  Level  of  Federal  Standard  COBOL.  The 
use  of  a file-name  series  with  an  OPEN  Statement  is  allowed  at 
this  COBOL  level. 

4.  A similar  message  to  RL421.A.3  for  the  CLOSE  Statement  was  produced 
by  the  compiler  when  the  compiler  was  set  to  flag  COBOL  features 
above  the  Low-Intermediate  Level  of  Federal  Standard  COBOL. 

5.  The  compiler  issued  the  message 

IDF8003I-W  WITH  LOCK  OPTION  OF  CLOSE  STATEMENT  IS  AN  EXTENSION 
TO  LEVEL  B AND  BELOW 

on  a CLOSE  Statement  for  Relative  T-0  when  the  compiler  was  set 
to  flag  COBOL  features  above  the  Low-Intermediate  Level  of  Federal 
Standard  COBOL.  The  use  of  the  LOCK  option  for  Relative  I-O  is 
permitted  at  the  Low-Intermediate  Level. 

B.  Execution 

No  errors. 


RL431 
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A.  Compilation 

1 . The  following  Environment  Division  and  Data  Division  Entries  of 
Relative  I-O  were  not  flagged  as  being  an  extension  to  Low  Level 
of  Federal  Standard  COBOL.  (The  name  in  parentheses  following 
each  COBOL  entry  refers  to  the  corresponding  paragraph  names 
listed  in  the  routine's  execution  report.) 

FD  RL-FD1  (FD-FLAG-01 .01) 

FD  RL-FS1  (FD-FLAG-01 .02) 

2.  The  following  Procedure  Division  Statements  of  Relative  I-O  were 
not  flagged  as  being  an  extension  to  Low  Level  Federal  Standard 
COBOL.  (The  name  in  parentheses  following  each  COBOL  entry  refers 
to  the  corresponding  paragraph  name  listed  in  the  routine's 
execution  report.) 

OPEN  OUTPUT  RL-FD1.  (OPEN-FLAG-01 .01 ) 

WRITE  RL-FD1R1-F-G-120  INVALID  KEY  (WRT-FLAG-01 .01 ) 

CLOSE  RL-FD1.  ( CLOS-FLAG-01 . 01 ) 

OPEN  INPUT  RL-FD1.  (OPEN-FLAG-01 .02) 

CLOSE  RL-FD1.  (CLOS-FLAG-01 .02) 

3.  The  Relative  I-O  statement 


START  RL-FD1  KEY  IS  EQUAL  to  RL-FD1-KEY  INVALID  KEY 

(STRT-FLAG-01 .01) 

was  not  flagged  as  being  an  extension  to  Low-Intermediate  Level  of 
Federal  Standard  COBOL. 

B.  Execution 
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REPORT  WRITER  MODULE  LEVEL  1 
RW101  through  RWIO^J 


The  Report  Writer  Module  programs  were  not  run  for  this  validation. 
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SEGMENTATION  MODULE  LEVEL  1 
SGI 01  through  SGI 06 

A.  Compilation 
No  errors. 

B.  Exerution 
No  errors. 

SEGMENTATION  MODULE  LEVEL  2 
SG201  through  SG204 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

SEGMENTATION  MODULE  FLAGGING 
SG421  and  SGMUI 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 
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SEQUENTIAL  I-O  MODULE  LEVEL  ^ 

SQ101  through  SQ108 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

S0109  through  SO1 17 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

SO1 18  through  S0 120 

A.  Compilation 
No  errors. 

B.  Execution 

The  system  does  not  support  card  punch  or  card  render  devices  for 
processing  ASCII  encoded  punched  cards.  For  these  programs  the  files 
intended  for  use  with  the  card  reader  and  punch  were  assigned  to 
magnetic  tape  instead. 

SOl'il  through  SOI'^? 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

SQ201  through  S0220 

A.  Compilation 
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No  errors. 

B.  Execution 
No  errors. 

SEQUENTIAL  I-O  MODULE  FLAGGING 
S0431 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 
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SORT  MODULE  LEVEL  1 

ST  101  through  ST118 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

SORT  MODULE  LEVEL  2 

ST201  through  ST216 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

SORT-MERGE  MODULE  FLAGGING 

STU?1,  ST1I32,  ST»»^7,  STU’U,  ST^Ml,  ST»m2  and  ST^U’ 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 
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TABLE  HANDLING  MODULE  LEVEL  1 
TH101  through  THIII 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

THISI  through  TH152 

A.  Compilation 
No  errors. 

B.  Execution 
No  errors. 

TABLE  HANDLING  MODULE  LEVEL  ? 
TH?01  through  TH220 
A.  Compilation 


No  errors. 


B.  Execution 


No  errors. 

TABLE  HANDLING  MODULE  FLAGGING 
THU’1 

A.  Complletion 


No  errors. 


B.  Execution 


No  errors. 
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